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News and Reviews 


by Mike Dunn, Editor 


| have just bought a copy of the brand new Spell Wizard by DataSoft (9421 Win- 
netka Ave., Chatsworth, CA 91311, $80) and will review it completely next issue as 
| get to use it. This comes with а 33,000 + word dictionary, scans your text files at 
600 words a minute and automatically identifies any misspelled words, allowing 
you to immediately correct them in-line. It is a stand alone utility which works 
without the word-processor, on any file made in DOS 2 format or converted to it 
such as Letter Perfect files with the Disk Utility. It is menu driven, and allows you 
to add any words you want, on the same file or on seperate files. Looks like a good 
program, and for the price, a great bargain compared to similiar programs for 
other computers. | ran this article through it and it seemed to work fine. It flagged 
the abbreviations and proper names, but allows you to add them to your dic- 
tionary. It even flagged Atari! Very impresive, more next issue. 

Letter Perfect (by ШК, РОВ 10827 St. Louis, MO 63129 $150 disk, $200 ROM), 
has been quietly upgraded by adding significant new features without fanfare. 
L.J.K. is constantly upgrading all its programs, and unless you are really on your 
toes, it can pass by without comment. The latest version obtained by one of our 
club members is 3.1. You can now configure any printer on both the disk and ROM 
versions. Both 40 col. and 80 col. versions come with the disk version, and new 
commands have been added, such as an Insert mode which allows you to insert 
words directly rather than first make a space ог line for it. L.J.K. has also just 
released a new documentation manual for Data Perfect which includes a 100 page 
tutorial and a price increase to $129 after Feb. 15. In the last issue, Kirt Stockwell 
reviewed both Data Perfect and Filemanager 800+; he liked Data Perfect much 
better and felt it was more powerful and versatile, but because of the documenta- 
tion and the general ease of use, concluded that Filemanager might be a better 
choice for a novice or for one whose needs are simple. This new documentation, 
which | have not seen, might very well make DataPerfect a better choice for a 
wider audience. Although L.J.K. can be congratulated for constantly striving to im- 
prove their products. They explain the upgrade policy as follows: Registered 
owners can obtain the Letter Perfect upgrade disk & documentation for $30; 
Dataperfect upgrade documentation is $10. 

Incidentally, if any one has a program which will convert DataPerfect files to 
L.J.K. or vice versa, зо we can exchange information with people with either 
database programs, please let me know. 

For your Atari 400, several new products of interest. Two new keyboards are 
now available — never did receive one from Screen-Sonics. Insoft software (2485 
Dunwin Dr., Mississauga, Ontario L5L 1T1, $120 US) is a very easy to install full- 
stroke keyboard. You just remove the old membrane one and replace with the new 
one. The keys have a nice feel, but some are smaller than the 800 (eg. RETURN), 
and some are changed in location. | have not really used one, but some of our 
members һауе and liked it. S/Ware (1341 Quail Hollow Road, Harrisburg, PA 17112) 
has a series of outboard keyboards for the 400 and 800, including a deluxe one 
with a hexadecimal keypad for $125. They use only high grade, commercial quality 
parts and are able to keep the price down by you supplying the labor. 

They were kind enough to send me their nicely done instruction manual —this 
is really a kit— you wire each switch, etc., but end up with a beautiful product at a 
very attractive price. The instructions are clear, and it looks like anyone who can 
use a soldering iron fairly well and follow instructions can make themselves a nice 
keyboard. If any of you out there have any of the above and want to share your ex- 
periences, please send them in. 

The new Axion 48K memory board (170 М. Wolfe Rd., Sunnyvale, СА 94086, 
$200) is now available. It can plug directly into the 400 without any soldering or 
wiring changes —very easy to install. 

Another approach has been taken by USS Enterprises (6708 Landerwood Ln., 
San Jose, CA 95120) (If poor Jerry White can be sued by the Star-Trek people for 
Triva Trek, | wonder how this passes —ed). They have a $175 software/hardware 
package which allows you to hook your 400/800 to a CP/M computer and use the 
CP/M keyboard, disk drives, etc. If any of you have done this, ‘please write in —! 
don’t understand, for instance, how it can read protected disks, self-booting 
disks, etc. 

Speaking of CP/M, one of our members has just obtained the Disk Drive/RS- 
232232/Centronics parallel Interface with CP/M, the ATR8000. Available from Soft- 
ware Publishers (2500 E. Randol Mill Rd. #125, Arlington, TX 76011, $500 + $250 for 
64K and CP/M, he has not yet had time to evaluate it, but look for a complete 
evaluation in the next issue. It is supposed to read any CP/M format with a special 
program (which is not ready yet) but works the best with the 512 Xerox format. For 
those of you who cannot wait, call E.J. Knoll at (503)343-5191. 

The Editors of COMPUTE! have released another new book in their Atari Series, 
COMPUTES! First Book of Atari Graphics, (Small Systems Services, Greensboro, 
NC $13). Mostly reprints of articles from their magazine, it has many useful pro- 
grams, utilities, and hints on using intermeadiate to advanced graphics, including 
P/M, character, animation, GTIA, etc. It also has one of the best articles I’ve seen 
explaining P/M graphics by (who else?) Bill Wilkinson. 


Next month, | will do a comprehensive review on a moderately priced ($80), | 


ROM based word-processor from a big company. | have seen the documentation 
on it, and it looks like a winner! 





BUMPAS REVIEWS 
STRATOS 


ADVENTURE INTERNATIONAL, Box 3435, Longwood, FL 32750 (no price given) 
produces STRATOS, a new arcade game. The game is a variation on the Missile 
Command theme: Waves of enemy attackers try to destroy, your city. 

The game has excellent color, and permits you to change background and 
foreground colors among a variety of choices by keyboard input. One of 2 sound 
selections may also be made. 

The most significant feature of this game is in the animation of the attackers. 
They roll and spin, drop, dive and dodge your shots. With each change in attitude, 
the aspect of the ship changes on the screen. This gives them a ‘3D’ effect. 

Other features include a ‘Repair Vehicle’ which can be manipulated to repair 
broken spots in the ‘force shield’ which protects the city. 


SOUND & MUSIC 


Educational Software, 4565 Cherryvale Ave., Soquel, CA 95073 produces SOUND 
& MUSIC, Tricky Tutorial #6 by our friend Jerry White. The price is $19.95 and in- 
cludes ‘Player Piano’. The disk provides a very good step-by-step lesson program 
for using sound in BASIC routines. Player Piano will play back the selections you 
create. This is the same ‘Player Piano’ sold by APX for $22.95. So you are getting a 
bargain here. 

A 36-page digest sized booklet provides documentation, including program 
listings for several sample programs. 

This work by Jerry White is presented with color & graphics, sound and text and 
may be valuable to anyone who wants to begin programming sound into their own 


software. 
SANDS OF EGYPT 


(Datasoft, 9421 Winnetka Ave., Chatsworth, CA 91311. After getting the disk from 
Brian, three of us (Linda, Nick and myself) brainstormed the game on a Sunday 
afternoon. We’ve seen about a dozen screen pages with good color. The screen 
pages scroll smoothly, and don’t just flash at you. Scrolling is used to simulate 
animation with cloud movement and a camel. So far, everything else is still. We’ve 
discovered about 60 of the ‘more than 100 words’ in the program’s vocabulary. 
Мече discovered about 16 of the objects in the game. | estimate we’re only half- 
way through it, as мече just made it to the Pyramid. We still have to get in, find 
the treasure, and make it back to civilization. 

The only way to effectively map the game is using the ‘Hansel & Gretel’ method 
suggested in the documentation. Movement otherwise is irrational and will lead to 
your death, lost in the desert. So far there seems to be only one correct path to 
any object, except for опе or two ‘shortcuts’ (time & space warps”). 

Some of the clues are very direct and will make the required action obvious. 
Some are very obscure. Most are just cute or seem irrelevant. | usually get impa- 
tient with adventure games because the vocabulary of the game seems to be the 
greatest obstacle one faces. This game seems to suffer less from this fault. 


LEGIONNAIRE 


Chris Crawford’s latest opus is available from Avalon Hill for $35. The map is 
large and beautifully designed, similar to the map in his award-winning EASTERN 
FRONT. Players who know that game will be familiar with the joystick control of 
the Roman Legions in this game. 

First, you are asked to choose how many Legions you want to use to fight the 
barbarians. You may choose up to 10, but beware! You must fight 2 barbarian 
hordes for each Legion you choose. Next, you are asked to choose the pair 
(always 2!) of barbarian tribes you want to face. There are 8 pairs of tribes. The 
higher you go, the tougher they get. The Huns and Helvetians are the toughest. 

So far, Гуе only been able to defeat tribes up to the 4th-level Senones and Ner- 
vii. But | beat them with any number of legions, up to and including 10. The 5th 
and higher levels still beat me. I’ve won with a score of -8. | was down to my last 2 
legions before | wiped out the last of 6 Senones and 6 Nervii. You can lose, no 
matter how high your score if Caesar’s Legion is put out of action. 

The game begins when you press START. Before you do, you may scroll across 
the map (I call it reconnaisance) to determine the location of the forces. The 
Roman Legions (up to 8 foot and 2 horse) are always grouped together in one loca- 
tion. The barbarian tribes (one is always mounted; the other is always foot) form 
two more separate groups, usually about as far from each other as from you. 

Once the action begins, you hear sound seeming to simulate marching feet. 
The barbarians are coming towards you even as you give commands to the 
Legions. Pushing the trigger while the cursor is on a unit permits you to read in- 
formation concerning the unit. The name of the unit will be the barbarian tribe, or 
the Roman leader in command of that Legion. The total number of men in the unit, 
and the number of ‘swords’ (combat effectives) is also shown. 

SELECT permits you to pause in the action. OPTION permits you to quit and 
begin again. 

Marching about causes a unit to lose strength to ‘straggling’. These losses can 
be made up if you halt for a rest. Combat causes permanent losses. If you wait for 
the barbarians to attack you, you will find they halt a couple of impulses away. 
During this halt, they make a different noise. | think of barbarians beating their 
shields to raise themselves to a real gallic fury when | hear this sound. They are 
gathering their stragglers and preparing for the assault. 

Each barbarian unit of one tribe starts with the same strength. The Legions vary 
in strength from 1800 (Labienus’ cavalry) to 4000 (Caesar’s Legion). To beat any 
but the 1st-level barbarians, you need to fight them when they are weak and you 
are strong. This is easier said than done. One way is to try to split their forces in 
such а way зо you Can concentrate the Legions оп a smaller number of barbarian 
units before their friends can come to the rescue. 

| plan to have many hours of fun with this game in the future. 

—Jim Bumpas 


Benioff At Large 


Greetings from the University of Southern California TKE Fraternity. This 
month, | have journeyed to the Las Vegas Winter Consumer Electronics Show 
(CES), received twelve new games from third party vendors, and was given three 
hours in a locked room with the new ATARI 1200XLS. So sit back, relax, and pour 
yourself a nice hot cup of coffee, and prepare yourself for another BENIOFF AT 
LARGE. 

The night before my departure for Las Vegas, | realized my travel agent made a 
rather large mistake. Instead of booking me to Las Vegas and back to Los 
Angeles, she booked me going to Los Angeles, and back to Las Vegas. Unfor- 
tunately, all the airlines were booked, and | had to drive. | roared up the Supra, and 
took off for the Winter CES 1983. 

As | arrived at the Las Vegas Convention Center, | realized | had a big job ahead 
of me. Not wasting any time, | headed straight for the ATARI BOOTH. New Pro- 
ducts were being announced for the 400/800/1200XLS, 2600, and 5200 systems. All 
of these looked extremely inviting. 

Besides the new 1200XLS (see below for detailed information), several pieces of 
hardware and software were announced for the home computers. 

The all new ATARI printer is the Okidata Microline 80, called the ATARI 1025 80 
column printer. The retail price is $549. It does not offer graphics, but will operate 
under Epson word processor programs. The new software from ATARI will sup- 
port the new and old printers, and there should not be any problems (according to 
ATARI, not me). The casing matches the 1200х1$ (Black and White). 

ATARI now has a color grpahics 40 column color Plotter/Printer called the 
ATARI 1020. It retails for $299. It is very sharp, and the graphics are great! You can 
also print up to 80 characters per line, with an option of 20 or 40 as well. Four col- 
ors can be used at once, with an option of eight colors from the set. It is a neat 
product, and the casing matches the 1200х18. 


А new program recorder? YES! The all new ATARI 1010. It matches the 1200х1$, ` 


and does everything the 410 does. It retails for $99.95. | don’t know the difference! 

Several new software packages were released as well. They include several 
games and home managment programs. 

ЕТ. Phone Home! is the HomE computer version of the VCS’s E.T. It is very 
similar to the VCS, but better graphics, and more variations. Elliot! Help ATARI 
phone home. 

Qix is an adaptation of the popular arcade game. Racing around filling up boxes 
is what it looks to be, but it is quite fascinating! Look for it in a couple months. 

Dig Dug is excellent on the 400/800/1200 systems! It is a direct take from the ar- 
cade, and they did a very good job! It has clever graphics, and should be a big 
seller. 

The New word processor from ATARI is the ATARI Writer. It is supposed to be 
excellent. It will work with all printers. It is menu driven, allows double columns, 
automatic page numbering, etc. It is very nice! $79.95 on cartridge. 

Timewise is a new calendar program. It allows you keep track of birthdays, ap- 
pointments, etc. It looks very nice, and sells for $29.95. 

Also coming from ATARI is Family Finances, The Disney Educational Series, 
PAINT (a Micro Painter Rip-Off), Microsoft Basic ІІ, Donkey Kong, and Superman 
Ш - The game. 

New games for the 5200 (easily adaptable for the 400/800/120 are Soccer, Foot- 
ball, Baseball, Centipede (much better than 400/800), Kangaroo, Vanguard, Spabe 
Dungeon, and an awesome track ball. 

New Games for the 2600 are Centipede, Ms. Pac-Man, Dig Dug, Vanguard, 
Galaxian, Phoenix, Real Sports Series, and a whole bunch of educational games 
from Sesame Street — Brian, you will like that! 

A new ppo line joystick is also being released by ATARI. It looks very good, and 
will compete with Wico and Disc Washer. Also wireless joysticks will be available. 

Mattel Electronics announced Intellivision Il, a much sleeker unit, a new 
adapter for ATARI VCS games to play on Intellivision. What a deal! 

Datasoft showed ATARI Zaxxon at the CES. They also had some other software 
released, but they were too busy to discuss it with me. See your dealer. 


kk kk kk 


Corrections 


The listing for Scrambled Eggs in the Dec newsletter won't work as it is 
printed, even if you get the control characters correctly entered. The program 
modifies the string P$ pointers and requries it to be the first variable entered. The 
fix is to delete line 1 and re-enter it as line 11, then LIST the program out to tape or 
disk, type NEW and ENTER it back into the computer. RUN it and it will work. 

The reason simply SAVEing and LOADing will not correct the problem is that 
these commands deal with tokenized programs; therefore the variable tables will 
not be reconstructed. An alternative fix is to re-enter the whole program, typing 
line 5 first, but | think the other method is much better. 

—Dave Lutz, Holden, Alberta 


| wonder if this is why the program will not work if downloaded from the Bulletin 
Board in LIST form, but will if Tokenized and downloaded as a Ше.— ед. 


EMI released Orc Attack, River Rescue, Save the Seven Seas, Mutant Herd, and 
Major League Hockey all on cartridge. 

Spectravideo announced a new computer and several new games for the ATARI 
400/800. Vortex is a 3-D game which comes with special 3-D glasses. Also 
available are: Sector Alpha, Romper Room Series, Planet Patrol, China Syndrome, 
Nexar, Cave In, Number Crunch, REAGONOMICS!, Time Scape, Gold Mine, Ape 
Escape, Drive Em Krazy, Eagle Mountain, Master Cylinder, and Cosmic Math. This 
company is from Japan and looks excellent. 

IMAGIC is releasing TWO games for the ATARI. Demon Attack, and Atlantis are 
now available in cartridge for the 400/800/1200. 

This month | received twelve new games for the computer. | will try now to give 
brief descriptions of each game. 

Kid Grid is very similar to Amidar in the arcades. It is from Tronix, a division of 
Softsel Distributing. | find it very fun, and challenging. 

Speedway is a scrolling arcade game from IDSI. | never knew cars could shoot 
at each other until | played this game. It is very interesting, but not extremely top 
notch in fascination. 

Firebird is a new cartridge from Gebelli. | find it quite fun, but it is a bit 
simplistic, and gets boring at times. 

Pogoman is a new game from Computer Magic. It is a very passive game. Just 
before | go to sleep at night I like this game because it is very relaxing. As you 
jump on your pogo stick, soft music plays in the back ground. It has super 
graphics! 

Defender from ATARI is superb! If you like the arcade version, this is it! | played 
it over a year ago, and now you know why | liked it so much. It is truly awesome. 

Sea Dragon is Russ Wetmore’s new game from Adventure International. It is 
very similar to Scramble, if it were under water. | like this game, it even has the 
Preppie! character set. 

Gorf is an excellent version of the arcade game from Roklan Corp. It is an exact 
duplication of the arcade version. Wizard of Wor is also by Roklan, and it is as ex- 
act as GORF. 

London Software first released Space Ace, which was only fair. But, their new 
game, Hot Lips is excellent. As you chase around little men, you try to have them 
eaten by a huge mouth in the middle of the maze. | like this game. 

Marauder is Sierra On-Line’s new game. It is excellent!! It has two modes, and 
is like having two arcade games in one. An excellent Apple translation. This game 
is like advanced Missile Command. 

Serpentine is Broderbunds new game for the ATARI. It is very compelling as 
you try to survive in a world with frogs and large snakes. 

| have saved the best for last. Way Out from Sirius software blows my mind! It is 
like roller skating in a large maze. It has graphics better than Battlezone in the ar- 
cade, and has excellent game play — A super game for all. 3-D true to life 
graphics. 

AND NOW THE 1200XLS. The next logical step? No. Sorry, the 1200 is just a 800 
in a new case, and a few mord function keys. It is not even a true 64K! It is only 
available through machine language programming. It is very nice looking, if that 
counts for anything. It as 16K ROM, and 64K RAM. But, finally ATARI has a com- 
puter which LOOKS like a computer should look. It will retail for $899, and will be 
in stores soon. You will definitely say, “Wow!”’when you see it. 

Good Bye From The City Of Smog. 

— Магс Benioff 

631 W.28th Street 

Los Angeles, CA 90007 
(213)748-2458 





Inside Atari Basic 


by Bill Carris 
($12.95; Reston Publishing Co. 800-336-0338) 
Review by Larry Gold. 


If you don’t know how to program and аге new to computers, this is a good 
book for you. It assumes you have no prior knowledge of computers or programm- 
ing. If you are someone who knows computors and programming, but doesn’t 
know the Atari, then is is a book for you. If you are someone who knows Atari 
Basic and knows how to use the computor, this will make a good reference book 
for color, GTIA, and the other graphic modes. 

It is written in a simple style so all can understand, and makes no pretensions 
at being anything but what it is: A beginner’s book. It is written to replace the Atari 
Basic book in use now. To go beyond the very basics, however, you will have to 
buy something more advanced. 


PROGRAMS 
WHAT IF? 


(Conditionals In ATARI PILOT) 
by Ruth Ellsworth 


One of the first problems we encountered when we started programming was 
writing logic statements. The IF - THEN conditional quickly became one of the 
most used and important concepts we learned. However, in ATARI PILOT the IF - 
THEN conditional appears, as my children say “in disguise.” 

The following is a list of IF - THEN statements which have been helpful to us. 
TY: IF yes THEN type 
TN: IF no THEN type 
JM: IF there is a match THEN jump 
JY: IF yes THEN jump 
JN: IF no THEN jump 
CY: IF yes THEN compute 
CN: IF no THEN compute 
UY: IF yes THEN use 
UN: IF no THEN use 
EN: IF no THEN end 

The IF - THEN conditional can also appear after a command word as follows: 
T(@B764 = 18):C IF (in this case, the last key typed has a decimal value of 18) 
THEN type C. 

C(#X = 1):$Ү = ZOO IF (the value of numeric variable X equals 1) THEN compute 
the value of $Y equals ZOO. 

ЯС x 10):*MODULE IF (ЕС is less than 10 THEN jump to “MODULE. 

U(#X = #Y):* MODULE IF (#X equals #Y THEN use *MODULE. 

E(#Xt7): IF (#X is more than 7) THEN end. 

The following programs illustrate the use of the conditionals to make easy 
games. The PRESCHOOL GAME chooses a letter at random which drops down 
the screen. The child must type a letter or return for the program to continue. The 
object is to type the matching letter from the keyboard before the letter drops “їп- 
to the water.” 

The LETTER SNATCH GAME is an improved and refined version of the 
PRESCHOOL GAME. It allows the child to choose a level of difficulty from 1 to 6, 
1 being the easiest level. The letter which appears is in lower case, and the child 
must match the appropriate upper case letter from the keyboard. It is useful for 
matching lower and upper case letters and for practicing typing skills. 





COURTING CRICKETS 


Clyde cricket lives in a factory. Deeply enamored of Cynthia cricket, he risks his 
life to bring her gifts, hoping to eventually win her feeler in marriage. Clyde must 
jump from conveyor to conveyor, avoiding any objects on them. He must also 
avoid any of the superstructure. To make Clyde jump you press stick 0 in the pro- 
per direction AND press the fire button, (both together). 

To win Cynthia, Clyde must bring her flowers, perfume, candy, a necklace and 
finally a ring. He must return to the center of the lowest level to pick up the next 
gift. If Clyde fails he has three brothers willing to take his place. These brothers 
don’t have to start at the beginning, they simply take over the gift delivery. Oh yes 
... a former jealous suitor makes things difficult by throwing various objects from 
the top of the screen. 

There are seven levels of difficulty. If you don’t want that many, change line 450. 
The progam as listed will not run in 16K. Leaving out the remarks will help, but 
other tricks will be necessary to scrunch it down. 

—Stan Ockers 





KNIGHT FOR A DAY 


(The instructions for this game are in the program listing.) Program 
Description: 

Lines 10-24 are used to display the instructions. 

Lines 90-190 reserve RAM for the new character set and transfer a 
combination of the old character set and data for the new characters. The 
data being from Lines 1000-1900 

Lines 191-199 set up the original screen and reset all the variables to their 
original values. 

Lines 200-699 contain the different sub-programs. Each one is а main program 
loop which is chosen depending upon the room of the castle into which you 
enter. 

Lines 900-999 contain the separate subroutines to draw the different rooms 
and scenes contained in the game. 

Lines 2000-2099 chose the random information to control which doorway 
leads to which room. 

—Sydney Brown 


PM Graphics 
from BASIC 


—Matt Giwer Annandale, УА 

As everyone who has tackled the problem has found out, P-M Graphics is rather 
unpleasant to use. There are a dozen published approaches to the problem. 
However, they all involve machine language in some form or another. 

Most of us are not machine language programmers and it takes a great motiva- 
tion to get us to go to the effort. Also machine language routines are rarely 
general enough to provide the variety needed for different applications. And when 
the ones available are not what is needed it is back to the Assembler. Higher 
Order Languages, such as BASIC, are inherently more flexible but only really fast 
when they are compiled. Since BASIC instructions tend to be too flexible, so com- 
pilers can not interpret the meanings correctly, we are stuck with an interpreted 
language. This is slow, which means it can not be used for PM Graphics. Right? 
The only machine language routine in the enclosed article is to move the 
character down to where | want it in RAM. The DATA statements only put a 
message on the screen. 

If you run this program you will see the words of the message printed vertically 
on the screen yet there are no print statements involved. One of the words scroll 


itself. Another word will do a circle (sort of) on the screen. The words will change 


very quickly. Note: there are some delays built into the program. You will see a 
surprise at the end. 

The secret of this technique is the 30000 subroutine. For 1-line PMG a string of 
4096 length is Dimensioned and cleared. (Development hint: instead of СНА$(0) 
use CHR$(255)) This program uses 5020 for the size since | wanted room for mov- 
ing the character set. | am tired of creating new shapes. Since Atari BASIC 
reserves the length of the strings within the program space the manipulation of 
them is a simple machine language routine within the BASIC interpreter. There is 
very little housekeeping involved with this sort of manipulation as opposed to 
Microsoft BASIC which must change string locations when one gets longer. 

Since screen output is handled by Direct Memory Access by ANTIC both the 
normal and the PM graphics can read from any location within the RAM. Normal 
graphics is slowed by the format requirements in location 87 and other instruc- 
tions in the Display List. It can also read from any location. In exchange for the 
slow read, we get flexibility. When ANTIC reads the PM Graphics RAM specified 
by the number in PMBASE, 54279, it reads straight through without format or in- 
terpretation. In return for this simplicity we get speed. 

However, since PMBASE can be specified by the user | specify it to be within 
the PM$ that | dimension and clear. A short algorithm finds the lowest 2K page 
boundary within that string and sets PMBASE. Also it determines the offset bet- 
ween ADR(PM$) and the start of the Missile page. So far so good. It works. 

All | do is position PMBASE within a cleared string. Next | manipulate substr- 
ings within this large string. And | get machine language speed movement of the 
shapes. The speed is still dependent upon BASIC interpreting the instruction in 
the first place but once interpreted the execution time is trivial. Ever notice how 
fast Atari BASIC handles strings? Here this speed makes shapes move through 
the PM graphics area. The speed of this technique is at least as fast as any 
machine language subroutine | have seen and it is in every way superior except 
for working out the arithmetic of the string manipulation. It is a simple bookeep- 
ing problem. 

What are the benefits? Page 6 is not used. (My kingdom for an Atari with ten 
Page sixes.) This technique works without change or modification in any Graphics 
mode. In other words you do not have to move RAMTOP or back off 8, 16, or 32 (!!) 
pages to get PM Graphics to function properly. You forget about the problem en- 
tirely, it is not a problem here. In fact, since PM Graphics only uses five pages in 
single line, you can use the first three pages for other purposes as | have done 
here to define substrings. You can use the other parts of DiMensioned strings 
which are used for nothing else as | have used to hold the character set. You can 
use the bottom part below PMBASE if there is any. This method uses no machine 
language routines. Any thing you can define or manipulate from a string you can 
put on the screen. 

Since this technique is independent of graphics mode you can write a display 
once and use it in many programs. How about a routine for dice? This can be used 
for anything from Monopoly and Craps to D&D. 

Did | say dice? That takes at least six different shapes, twelve if you make red 
dice and white spots. So you define these shapes in other parts of the string and 
write them into the locations you want. You can have as many shapes as you have 
RAM to put them in. | moved down the character set to use so | have 128 different 
shapes for free. Also | add two more of my own design at the end of the program. 
So | have 130 shapes and full single line PM Graphics capability at a cost of a 
single DIMensioned string of 5020 characters in length. And if | look carefully for 
unused areas in the PM$ | can find eleven pages free and still unused. (20 DIMen- 
sioned, -5 for PMG, -4 for Characters.) 

The only hitch to all of this is ST must be determined while the program is runn- 
ing. The positions of the strings are only fixed when running. When in the direct 
mode the string locations move around. Thus you can only fine tune the PM 
display when it is running. Also all locations must be referenced to a value deter- 
mined when the program is running. In this program the value is ST. 

The scrolling part of the demo program shows this is better than called 
machine language routines. In this program | just scroll eight characters. 
However, with unnoticable time difference you can scroll the entire 256 bytes of 
the page with exactly the same technique used here. (Note there is a bug which 
works well at exactly 256 bytes. Use 255 or 257.) 

This is an unbelievably simple technique yet 1 can find no hint of it in any of the 
literature. The Atari Hardware manual has thrown most people off in its instruc- 
tions for turning on PMG. (You can make them work by making a GRAPHICS call 
AFTER you move RAMTOP.) From that point cut and try has led to this ungodly 
method of moving the PMG area down below the screen RAM. The amount of 
RAM wasted is unbelievable and totally unnecessary. This method only works 
with Atari BASIC or with some language which keeps strings at the same location 
when a program is running. It probably will not work with Microsoft BASIC 
although | have not tried it. | have tried it quickly in all Graphics modes and in 
detail in modes 0, 1, 2, and 7 without problem. It does not work in 10 at all. (That is 
unsat! Any ideas?) But it does work in 9 and 11. Imagine your Players moving 


4 around in some of the GTIA landscapes. 


DEMO 
by Matt Giwer 


100 винт 


103 REM ЯН аз 
105 REM ### РМ Graphics ваде Easy ### 
107 REM ### $43 
110 REM #4# by із 
113 REM ЯН ан 
115 РЕМ ЯН Matt Giwer ян 
117 REM ### $t 


120 рен мыны 
130 REM 
150 REM ALL RIGHTS RESERVED 
170 REM 
1900 GOSUB 21610 
1910 GOSUB 30000 
1920 GOSUB 8000 
2100 FOR І.К-і TO 2 STEP 0 
2205 PAGE=0:R=0 
2210 READ A: IF A=999 THEN РАСЕ=РАСЕ+25 
6:R=0:GOTO 2210 
2211 IF А=-1 THEN 2500 
2220 перн | 
2230 PM$(ST+PAGE+40+RK8 , ЗТ+РАСЕ+А7+РЖ8 
)=PM$ (57+128044#8 , ST+1287+A¥8) 

2240 GOTO 2210 
2500 FOR 1=0 TO 71 

2510 PM${ST-256 , ST-253)=PM$(ST+256+48, 
514256451} 

2512 PM${(ST-200, ST-133)=PM$ (574256452, 
572564119) :РМ%(5Т-132,5Т-129)-РМ%15Т- 
256 , ST-253) 

2514 РН615Т:256448,57%25641191-РМ815Т- 
200,5Т-129) 

2516 ТЕ 1=9 ОВ 1-45 THEN POKE 53259,1 
2517 IF 1-18 OR 1=54 THEN POKE 53259,3 
2518 IF 1=27 OR 1-63 THEN POKE 53259,1 
2519 IF 1-26 OR 1=71 THEN POKE 53259,0 
2520 NEXT I 

2522 POKE 53259,0 

2550 PM$(ST-256 , ST-199) =PM$ (5T+768+40, 
57+768+97) 

2555 DEG :FOR I=0 TO 90 STEP 2 

2560 рме(57+768+40+1,57+768+97+1) =РИ$ i 
51-256 51-199} :РОКЕ 53250 ,140+60%51М(2 
ЖІ) :NEXT I 

2570 FOR 1=91 TO 180 STEP 2 

2575 PM$(ST+768+40+180-1 ,57+768+97+180 
-1)=PM$(ST-256 , ST-199) : POKE 53250 , 140+ 
60Ж51М(2Ж1) :МЕХТ I 

2580 PM$(ST-768, ST-681 )=РМ$ (ST+48, ST+1 
36) 

2581 PM$(ST-680 , ST-593) =PM$ (ST+256448, 
5Т%2564136) 

2582 рм (51-592 51-505) =РМ$ { 575124428, 
57+512+136) 

2583 РМ6(5Т-504,5Т-417)-РМ%157%768448, 
57+768+136) 

2584 РМ$ (57-416 , ST-329)=PM$ (57+1024+48 
‚51+1024+136) 

2595 PM$(ST+256448 ,5T+256+136)=PM$(5T- 
768 ,ST-681) 

2596 рие (57+512+46 ,57+512+136)=РМ%(5Т- 
768 , 5T-681) 

2597 PM$(ST+768+48 , ST+768+1 36) =PM$ (5Т- 
748 ,5Т-681) 

2598 рие (57+1024+48 ,57+1024+134)=РМ 5 
T-768 ,ST-681) 

2600 FOR 1-0 ТО 500:NEXT I 

2605 PM$(5T+256448 ,57+256+136)=РМ% (5Т- 
680 , ST-593) 

2606 РМе(5Т+512+48 ,57+512+136)=РМ% ( ST- 
680 ,57-593) 

2607 PM$(ST+768+48 , ST+7684196)=PMS ( ST- 
680 ,57-593) 


21660 ма 5з-""ъвъзиПна МИ 
MALTAS: REM FOUR 1 


2608 РМ(57+1024+48,57+1024+136)<РМ8(5 
Т-680 ,57-593) 

2610 FOR 150 TO 500: МЕХТ I 

2616 РМ$(5Т+512+48 , 51+512+136 ) =РМ$ (5Т- 
592, 51-505} 


2617 РМ$ {51+768+48 , 51+768+136} =РМ$ (5Т-° 


59а ,5T-505) 
2618 РМ${51+10244+48 ‚ 57+1024+136)=РМ$ (5 
T-592 ,ST-505) 
2620 FOR I=0 TO 500:NEXT I 
2627 PM$(ST+7468448 , ST+748+136)=PM$ (5Т- 
504, 51-417) 
2628 РМ${5Т+1024+48 5Т+1024+136)=РМ% (5 
T-504 ,ST-417) 
2630 FOR I=0 TO 500:NEXT I 
2638 PM$(5T+1024448 ‚ 51+1024+136} =РМ (5 
T-416 , 51-329) 
2640 GOSUB 6000 
2650 FOR I=0 TO 29 
2655 ТЕРЕЕК( 707): РОКЕ 707 ,РЕЕК(796):Р0 
КЕ 706,PEEK(705) :РОКЕ 705, PEEK(704) : PO 
КЕ 704,PEEK(711) 
2656 POKE 711,Т:8-141:МЕХТ І 
2700 FOR 1=18 ТО 35:PM$(5T-750tI ,5T-75 
0+1)=СНА$ (0): PM$(ST-7004I , 5Т-700+1} СН 
В%(0):МЕХТ I 
2710 FOR І-0 ТО 17:READ A:PM$(ST-750+I 
‚5Т-750+1)=СНА$ (А) :МЕХТ I 
2720 FOR I=0 ТО 17:READ А:РМ%(57-70041 
,5T-70041 )=CHR$(A) :МЕХТ І 
2725 1=1+4 
2730 PM$(ST+1250-I , ST+1285-1 )=PM${S5T-7 
50,5Т-715) 
2735 1=1+4 
2740 РМ${5Т+1250-1,5Т+1285-1)=РМ%(5Т-7 
00,5Т-665) 
2750 IF І21280 THEN 2800 
2760 GOTO 2725 
2800 RESTORE 
2900 NEXT IJK 
6000 REM 
6005 FOR I=0 TO 71 
6010 РМ$(5Т-256 , 5T-253)=PM$ (ST+512+48 , 
5Т+512+51) 
6012 РМ%(5Т-200,5Т-133)-РМ%(5Т%512452, 
5145124119) : PM$(ST-132 , ST-129)=PM$ (5Т- 
256 , ST-253) 
6014 PM$(ST#512+48 , ST+512+119)=PM$ (5Т- 
200 ,5T-129) 
6020 NEXT I 
6090 RETUPN 
8000 REM START MESSAGE 
8010 POSITION 12,15:7 #6," THIS ISA D 
EMO" 
8090 RETURN 
9990 REM THE FOLLOWING DATA ARE THE CH 
ARACTER NUMBERS IN OS CHBASE ORDER. r 
ef. TABLE 9.6 BASIC MANUAL 
10000 DATA 45,97 ,116,116,0,39,105, 119, 
101,114,999 
10010 DATA 112,114,101,115,101,110,116 
‚115,999 
10020 DATA 48,45,0,39,50,33,48,40,41,3 
5,51,999 
10030 DATA 109,97,100,101,999 
10040 DATA 54,37,50,57,0,37,33,51 ,57,9 
99-1 
10050 DATA 0,66,66,102,102, 239,251,251 
‚255,255 255 255 ,126 126 124,60, 40,24 
10055 DATA 24, 60, 60,126 ,126,255,251 25 
1,255,255 ,255 255,126,126 124,40 40,24 
21610 DIM M4$(32) 
21660 M4$="the following machine langu 
arg string:":REM FOUR PAGE MOVE 
21661 РЕМ M4$=hh [Cinv.contr.EJLinv. UJC 
іл ЕШІ.ТІМі.с.Е Шс.МІМІі.с.Е2ГІ1.У7 
Cc. DICi.spacel{c. , 2с.11201.с.92 
21662 REM M4$ contiued [inverse all th 
ese: VHPyfUfWUPpiCcontrol .1 
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21990 RETURN 

30000 REM РМ SETUP 

30005 DIM РМ%(5020) 

30010 PM$(1)=CHP$(0) : PM$(5020)=CHRS(0) 
: PM$(2)=PM$(1) 

30017 GRAPHICS 17 

30020 POKE 559, 42:POKE 623,49:РОКЕ 532 
71,3 

30030 РОКЕ 53277,3 

31000 REM FIND PMBASE 

31010 ADHI=INT (ADR (PM$) /256) : ADLO=ADR( 
рме ) -256ЖАОНТ 

31020 Р=ІМТ((АСНІ+8) /8) :ВЕМ 2-LINE (AD 

HI+4}/4 

31022 POKE 54279,РЖ8:ҺЕМ PMBASE//2-LIN 

Е РЖА 

31030 5Т=8жрж256+1024-256-А0В(РМ$ ) : REM 
OFFSET WITHIN PM$ FOR START OF MISSIL. 
Е PAGE/ /4%РЖ254%512-128-АПР(РМ%) 2-LIN 

E 

31035 FOR I=0 ТО 3:POKE 53252+1,86-2ЖІ 
:NEXT I 

31040 FOR 1=0 TO 3:POKE 53248+1,100+20 

ЖІ:МЕХТ I 

31045 FOR 150 TO 3:POKE 704%1,24%16Ж(1 
+9) :МЕХТ I:POKE 710,0 

31050 PCH=(Pk8+8) ж256 : Z=USR(ADRIM4$) ‚2 

244256 РСН) :REM 5Т%5Ж256 IS START OF С 
HARACTER SET DATA 

31090 RETURN 

32000 SAVE "0: BANNER" 


ң 


PRESCHOOL GAMES 


by Ruth Ellsworth 


1 В: PRESCHOOL 

5 P:by Puth Ellsworth 
10 ¥START 

29 C:#X=7\27 

30 Ci#X=1) : Хед 
40 С{#Х=р):%х=В 
50 Ci$X=3} : $Х=С 
50 C(#X=4) :$Х=0 
70 С{$Х=6} : $Х=Е 
80 C{#X=7) :$Х=Е 
90 Сі%Х-В):%Х-б 
190 Ci#X=9) :$Х=Н 
110 Ci#xX=16) - $x=I 
115 Ci #X=11:$Xsu 
120 C(#xX=12) - $x=k 
130 C{#X=13) : $X=L. 
140 С(%Х-14):%Х-Н 
150 C(#x=15) : $X=N 
160 C{#X=16) : $x=0 
170 C{#X=17) :$X=P 
186 С(%Х-18):%Х-0 
190 Ci#X=19) - $xX=R 
20) С(#Х=20):$Х=5 
210 С: 4Х=81} : $Х=Т 
220 С(#Х=22} : $X=U 
239 C(#X=23) Хау 
240 Ci#X=24} : $x=W 
259 C{#k=25) : $x=xX 
260 Ci#X=246) : $X=Y 
279 Ci#X=27) :$Х=7 
280 2(#Х=0}:Ж©5ТАВТ 
299 С:ЁВ1373=16 
300 С:@В1374=2 

310 МАГТЕ: 5. 

320 р05:4,9 

325 В:а11 ***'s inverse 
330 WRITE:§.°*******> 
340 Р05:8.1 


350 МЕІТЕ:5,$Х 

360 РЕАО:К,$У 

370 M:$X 

380 ЈҮ:ЖАІСНТ 

390 WRITE:§,3 

400 Р05:4,9 

410 WRITE:S,***°***** 
420 р05:8,2 

430 WRITE:5,$X 

449 READ:K.$Y 

450 M:$X 

460 ЈҮ:ЖРІСНТ 

470 WRITE:S,3 

480 Р05:4,9 

490 ШАТЕВ литни 
500 р05:8.3 

510 WRITE:S, $x 

520 READ: К, $Y 

530 M:$X 

540 UM: жетент 

556 WRITE:S,} 

560 POS: 4.9 

570 WRITE: 
580 WRITE: 
590 Р05:8, 
500 WRITE:5, $x 

610 РЕАП:К,% 

420 M: $x 

630 JM: RIGHT 

640 WRITE:5. 3 

650 Р05:4,9 

660 ЫВТТЕ:5,°**°°°°*Є 
670 Р05:8,5 

&80 WPITE:5.$X 

&90 READ: K, $Y 

700 M:$X 
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Ellsworth $ 
worth PILOT 
710 УМ: ЖАТСНТ 70 С:%Ү-90 
720 WRITE:5, } 80 ./:Ж5ТАВТ 
730 Р05:4,9 90 Е: 
740 МИ117Е:5,55545:<4% 100 *TWO 
750 WRITE:S, 110 С:#7<60 
760 Р05:8,6 120 .):Ж5ТАВТ 
770 WRITE: , $x 130 E: 
780 READ: K , $Y 140 ЖТНАЕЕ 
790 M: $x 150 С:#Ү=30 
800 JM: жетент 160 Ј:Ж5ТАРТ 
810 МВІТЕ:5,) 170 E: 
820 Р05:4,9 180 #FOUR 
830 WRITE:S********* 190 С:#Ү=20 
840 Р05:8,7 -200 .):Ж5ТАВТ 
850 WRITE:5,$X 210 Е: 
860 READ: К, $Y 220 ЖҒТУЕ 
870 M:$X 230 С:4Ү-10 
880 JM: жртснт 240 Ј:Ж5ТАРТ 
890 WRITE:S,} 250 Е: 
900 Р05:4,9 260 Ж5ІХ 
910 WRITE:S,********* 270 os 
920 WRITE:5, 280 J: жътавт 
930 Р05:8,8 290 E: 
940 WRITE: 5 , $Х 300 Ж5ТАВТ 
950 РЕАр:К,%Ү 310 УМЕМ: $ 
960 M:$X 320 С:#С=1 
970 JM: RIGHT 330 C:@B764=49 
980 WRITE:5,} 340 Т:) 
990 р05:4,9 350 С:9В710-142%7 
1000 WRITE:S,********* 360 С:#Х=7\27 
1010 Р05:8,9 370 .Ј(%Х=0) :ЖЅТАРТ 
1020 WRITE:5 , $x өссе 
1030 WRITE:S, | 
1040 Р05:4,9 400 J(#X=3) :xC 
1050 МАІТЕ:5, **^*-*-*° 410 Ш(#Х=4):Жр 
1060 WRITE:5,} 420 .(#Х=5) :ЖЕ 
1070 Р05:4,9 430 ай 
1080 ШРІТЕ: 5, ее 440 J(#X=7) :ЖС 
1090 Р05:4,7 450 (#Х8): ЖН 
(inverse ',3 1пу. врасез repeat) ха. Жей 
1100 МРАТТЕ:5 | 470 .М4Х-10): Ж.) 
1110 Р05:6,5 480 J(#X=11) ЖК 
(inv. ',3 inv spaces. etc) 490 J4#X=12) XL 
1120 WRITE:S,' р 500 J(#X=13) : ЖМ 
1130 PA: 60 510 J{#X=14) XN 
1140 NEW: $ 520 J(#X=15) #0 
1150 .):Ж5ТАВТ 530 J(#X=16) xP 
1160 E: 540 Ј(#Х=18):ЖА 
1170 ЖРІСНТ 550 J($X=19) 2S 
1180 ШВІТЕ:5, } 560 күлесің Жі 
1190 WRITE:5, 122222221 570 ылары : жи 
1200 WRITE:S, 1 { 580 J(#X=22) жу 
1210 МАТТЕ: 5, 91 + 19 590 РЗ 
1220 WRITE:S, cw 4 600 JH %Х-24):ЖХ 
1230 МРТТЕ:5, 1 \ 25/79 610 .#Х=25):ЖҮ 
1240 WRITE:S, кам | 620 .М4Х-р6):Ж7 
1250 WRITE:S, 630 Е: 
120 WRITE:S, good! (inverse) 640. SHRON 
1270 ра:100 650 ote 
1280 VNEW:$ 660 PA: 48 
1290 .):Ж5ТАВТ 670 50:0 
1300 Е: 680 50:15 
690 РА:48 
700 50:0 
LETTER SNATCH а а 
by Ruth Ellsworth fel PA; ae 
730 50:17 
740 РА:16 
5 R:LETTER SNATCH 750 50:18 
10 ЖОРТТОМ 760 РА:48 
15 T:CHOOSE А LEVEL OF DIFFICULTY FROM 785 У: ЖЭТАЯТ 
1 TO 6 (1 15 EASIEST, 6 15 HARDEST) 779 Е: 
20 А:#0 780 RIGHT 
30 4:1,2,3,4,5,6 790 т:) 
40 JM: XONE, ATWO, ЖТНАЕЕ, XFOUR ЖЕТУЕ x51 220 С:%В710-64%0 
Х 840 Т: 
50 Е: 850 Т: 
60 ЖОМЕ 860 Т: 
870 Т: 


880 T:GNF's inverse $Х 


890 Т: б & F inverse 
900 Т: 
910 Т: 
ти че 
ТЕР T: 
9413 T: 

920 Т: НІНІ! 
(G inverse) 
FW то ТЕ 

! 
940 Т: 1 о 
! 
950 T: 
! 
940 Т: Moff Hl H 
! 
970 T: В OIL if n 
! 
980 Т: 
(inverse F) 
1050 PA:100 
1040 T:} 
1070 J:XSTART 
1080 E: 
1090 ЖА 
1100 С: $Х=А 
1110 Р05:15,23 
1120 7-55“ tee 
1130 Р05:20,#С 
1140 Т:а 
1150 J(@B764=63) : ЖВІСНТ 
1140 РА:#Ү 
1170 Т:) 
1180 С:#С=#С+2 
1190 Ј(#С‹19):ЖА 
1200 Р05:17,18 
1210 т? к 
1220 Р05:15,20 
1230 1.“ | қ 
1240 Р05:15,23 
1250 т: 
1260 J: ЖУВОМС 
1270 E: 
1280 ЖВ 
1290 С:$Х=В 
1300 р05:15,23 
1310 qtte 
1320 р05:20,#С 
1330 T:b 
1340 J{@B744=21) : xRIGHT 
1350 PA: #Y 
1360 Т:) 
1370 С:#С=#С+2 
1380 .14СХ(19):ЖВ 
1390 Р05:17,18 
1400 T:' ? 
1410 Р05:15,20 
1420 Т:! ы ы 
1430 Р05:15,23 
1440 те 
1450 J: ЖЫВОМС 
1460 E: 
1470 ЖС 
1480 С:%Х-С 
1490 Р05:15,23 


TEREE 


ж 97% "49 9рас 


1510 Р05:20,#С 

1520 Т:с 

1530 J(@B764=18) : ЖВІСНТ 
1540 PA: #Y 

1550 Т:) 

1560 C:#C=#C+2 

1570 .Ј(#С<19):ЖС 


$X$X$X$X$X$X 1580 Р05:17,18 


$X $X 
$X kk $X 
хх 


1590 Т:" е 
1600 Р05:15,20 
1610 T:' ; ' 


$X$X$X 


б,» ж +» 


1620 Р05:15,23 


1640 Ј:ЖЫВОМС 
1650 Е: 

1460 Жр 

1670 С:%Х=р 
1680 Р05:15,23 


1700 Р05:20 #С 
1710 T:d 

1720 J{@B744=58) ЖРТСНТ 
1730 PA:#Y | 
1740 T:} 

1750 С:#С=#С+2 
1760 .4%С(19):жО 
1770 Р05:17,18 
1780 T:' | 
1790 Р05:15,20 
1800 T:' ' 
1810 Р05:15,23 
1820 Т: nai 
1830 J: живомс 

1840 Е: 

1850 ЖЕ 

1860 С: $Х=Е 

1870 Р05:15,23 
1880 Т:“--**::-:: $ 
1890 P05:20,#C 
1900 T:e 

1910 J(8B764=42) : XRIGHT 
1920 PA:#Y 

1930 T:} 

1940 C:#C=#C+2 
1950 .(%СХ(19):ЖЕ 
1960 Р05:17,18 
1970 Т:' 
1980 Р05:15,20 
1990 T:' қ | 
2000 Р05:15.23 
2010-1: 
2020 J: xWRONG 
2030 E: 

2040 ЖЕ 

2050 C:$X=F 

2060 Р05:15,23 
2070 q iiiv iaa 
2080 р05:20,#с 
8090 Т:4 

2100 J(@B764=54) - KRIGHT 
2110 PA:#Y 

2120 Т:) 

2130 С:#С=#С+2 
2140 J(#C(19) KF 
2150 Р05:17,18 
2160 Т:' i 
2170 Р05:15,20 
2180 T:' t ' 
2190 Р05:15,23 
2200 течения Я 
2210 .):ЖЫВОМС 

2220 Е: 

2230 жс 

2240 С: Хес 

2250 р05:15,23 
2260 T.+. 55 
2270 р05:20,#С 
2280 Т:0 

2290 J(@B764=61) :ЖАТСНТ 
2300 PA: #Y 

2310 T:} 

2320 С:#С=#С+2 
2330 2(#С(19}):*%б 
2340 Р05:17,18 
2350 T:' : 
2360 Р05:15,20 
2370 T:' ' 
2380 Р05:15,23 
2990 1:5 
2400 J:kWRONG 


2410 E: 

2420 ЖН 

2430 С:%Х-Н 
2440 Р05:15,23 


2460 POS:20.#C 
2470 Т:һ 

2480 J(@B764=57) :ЖрІСНТ 
2490 PA:#Y 

2500 Т:) 

2510 С:#С=#С+2 

2520 .4%С(19):ЖН 

2530 Р05:17,18 

2540 Т:' 

2550 р05:15,20 

2560 т: и 

2570 Р05:15 23 


2590 J: XWRONG 
2600 E: 

2610 ЖІ 

2620 С: $X=I 

2630 р05:15 23 
Арни 
2650 Р05:20,#С 
2660 Т:1 

2670 J(@B764=13) :ЖРІСНТ 
2680 PA:#Y 

2690 Т:) 

2700 С:#С=#С+2 
8710 .(#С‹19):жІ 
8720 р05:17,18 
2730 Т:' 
2740 Р05:15,20 
279017 б | 
2760 Р05:15,23 
эйе ене ае 
2780 J:xWRONG 

2790 E: 

2800 ж.) 

2810 С:$Х=/ 

2820 р05:15,23 
ыы 
2840 Р05:20.#С 
2850 T:j 

2860 .10В764-1):ЖРІСНТ 
2870 РА:#Ү 

2880 T:} 

2890 C:#C=#C+2 
2900 ./(%С‹19):%] 
2910 Р05:17,18 
2920 Т:' ' 
2930 POS:15,20 
2940 Т: 
2950 р05:15 23 
ела 
2970 J:*WRONG 
2980 Е: 

2990 ЖК 

3000 С: фХЕК 

3010 05:15 23 
ан 
3030 P05:20,4C 
3040 T:k 

3050 J(@B764=5) :ЖРІСНТ 
3060 PA: #Y 

3070 Т:} 

3080 C:4C=#C+2 
3090 4#С‹19):Ж%К 
3100 Р05:17,18 
3110 Т: 
3120 р05:15,20 
3130 т 40%: 
3140 P05:15,23 
Эйнар ИНЕТА 
3160 а: живонс 
3170 Е: 

3180 ж 

3190 C:$X=L 

3200 Р05:15,23 


3210 Tit tees ТТТ 
3220 Р05:20,#С 

3230 T:1 

3240 J{@B764=0) : *RIGHT 
3250 PA:#Y 

3260 Т:) 


3270 C:#C=#C+2 
3280 Ј(#С‹19):ж. 
3290 Р05:17,18 
3300 T:! 
3310 Р05:15 20 
3320 Т:' . 0% 
3330 Р05:15,23 
Sade ккал 
3350 J: kWRONG 
3340 Е: 

3370 ЖМ 

3380 C:$X=M 

3390 Р05:15,23 
"Кр А 
3410 Р05:20 #С 
3420 Т:а 

3430 J(@B764=37) : RIGHT 
3440 РА: #Y 

3450 T:} 

3460 C:#C=4C+2 
3470 JI#C<(19):XM 
3480 Р05:17.18 
3490 Т:' ' 
3500 Р05:15,20 
3510 T:' 
3520 Р05:15,23 
к 22222. 
3540 а: живонс 
3550 Е: 

3560 ЖМ 

3570 С: ХАМ 

3580 05:15 „23 
3590 stira 1,26; 
3600 Р05 :20,%С 
3610 Т:п 

3620 .188764-35):ЖРІСНТ 
3630 РА: ЖҮ 

3640 Т: 

3650 С:#С=#С+2 
3660 .Ј(%С‹19) -XN 
3670 Р05:17 18 
3680 Т:' 
3690 р05:15 20 
3700 Т: ' tos 
3710 Р05:15,23 
93720 Т: 
3730 J:XWRONG 
3740 Е: 

3750 x0 

3760 С: $X=0 

3770 Р05:15 23 
айар. ада вада cise 
3790 Р05:20 ЖС 
3800 Та 

3810 J(@B764=8) : ЖРТСНТ 
3820 РА: #Y 

3830 T:} 

3840 C:#C=#C+2 
3850 Ј(#С‹19) : x0 
3860 Р05:17,18 
3870 Т:! 
3880 Р05:15,20 
3890 Т:! ' ' 


3950 С:$Х=Р 
3960 Р05:15,23 


3990 T:p 


7 


4000 J(@B764=10) :ЖВІСНТ 
4010 PA:#Y 

4020 T:} 

4030 С:#С=#С+2 

4040 И#С(19):ЖР 

4050 Р05:17,18 

4960 T:' ' 

4070 Р05:15,20 

4080 T:' : : 

4090 Р06:15 23 


4110 J: kWRONG 
4120 E: 

4130 жа 

4140 С:%Х-й 
4150 Р05:15,23 


4170 Р06:20 ЖС 
4180 Т:4 

4190 J(@B764=47) : KRIGHT 
4200 PA: #Y 

4210 Т:) 

4220 С:#С=#С+а 
4230 .%СХ(19):Х0 
4240 Р05:17,18 
4250 Т:! ' 
425) Р05:15,29 
4270 T:' | | 
4280 Р05:15,23 


4300 и: живомс 
4310 Е: 

4320 ЖЕ 

4330 C:$X=R 
4340 Р05:15,23 


4360 Р05:20.#С 
4370 Т:г 

4380 J{@B744=40) : XRIGHT 
4390 PA:#Y 

4400 T:} 

4410 С:#С=#С+2 
4420 4(#С‹19):ЖВ 
4430 POS:17,18 
4440 T:' ! 
4450 Р05:15,20 
4460 T:' : ч 
4470 Р05:15 23 


4490 J: KURONG 
4500 E: 

4510 xS 

4529 С:%Х-5 
4530 Р05:15 23 


4550 Р05:20,#С 
4560 T:s 

4570 J(@B764=62) :ЖАІСНТ 
4580 РА:#Ү 

4590 Т:) 

4600 С:#С=#С+2 
4610 Ш(#С‹19):Ж5 
4620 Р05:17,18 
4630 T:' : 
4640 Р05:15,20 
4650 T:' ! 5 
4660 Р05:15,23 


4680 J: KURONG 
4690 E: 

4700 ЖТ 

4710 С:%Х-Т 
4720 Р05:15,23 


4740 Р05:20,%С 

4750 Ті 

4760 318В764-45):ЖВІСНТ 
4770 PA:#Y 

4780 Т:) 

4790 С:#С=#С+2 


4800 
4810 
4820 
4830 
4849 
4850 
4860 
4876 
4880 
4890 
4900 
4910 
4920 
4930 
4940 
4950 
4960 
4970 
4980 
4990 
5000 
5010 
5920 
5030 
5040 
5050 
5060 
5070 
5080 
5090 
5100 
5110 
5111 
5120 
5130 
5140 
5141 
5150 
5160 
5170 
5180 
5190 
5200 
5210 
9220 
5230 
5240 
5250 
5269 
5270 
5280 
5281 
5295 
5300 
5310 
5311 
5320 
5330 
5340 
5350 
5340 
5370 
5380 
5390 
5400 
5410 
5420 
5430 
5440 
5450 
5451 
5460 
5470 
5480 
5481 
5490 
5500 
5510 
5520 
5530 


44С(19):ЖТ 
Р05:17,18 
Т:' ' 
Р05:15,20 


С: ФХЕЦ 
Р05:15,23 
15559955 
Р05: 20 ЖС 

Гц 
(@В7&4=11):жВ1бНТ 
РА: ФУ 

T 

С:#С=#С+2 
Ј(4С<19):Ж0 
Р05:17,18 

{ t 
Р05:15,20 

Т” ! : 
Р05:15,23 


Т:у 
J({@B744=16) : ЖВІСНТ 
PA: ФУ 

Т: 

С:#С=#С+2 
JECC19) жу 
Р05:17,18 

Te? ! 
Р05:15,20 

Т : : 
Р05:15,23 
тз Ө 


С: $X=W 
Р05:15 23 
те 
Рос: г0 #С 
Тн 
J(@B764=46) : KRIGHT 
РА: #7 

Га? 
С:#С=#С+2 
Ш(#С‹19}:җу 
Р05:17,18 

ед ! 
Р05:15,20 

Е" : ' 
Р05:15,23 


Tex 
J{@B764=22) : RIGHT 
РА: SY 

тз 

C:#C=4#C+2 

J{ #0619) XX 
Р05:17,18 

Тм : 
P0S:15,20 


Ockers: Fantastic new game! 
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Eseries 
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CRICKETS 
by Stan Ockers 


1 REM ЖЖЖЖЖЖЖЖ ЖЖ АХЖ ЮК Ж 
с REM ЖЖ CRICKETS by Stan Ockers Ж 


3 REM ЖЖ FEB 83 x 
4 REM Жж ACE NEWSLETTER x 
5 REM Жж 3642 VINE MAPLE x 
6 REM ЖЖ EUGENE, OR 97405 ЖЖ 
7 REM Ж $ 10 YR xx 
В ПЕМ ЖОООК ОКО ЖЖЖ 


100 БЕН КОКОКО 

110 REM $k COURTING CRICKETS ЖЖ 

120 REM ЖЖ 5.0. 12-82 ЖЖ 

130 REM ЖЖЖ OOOO Oo ЖЖ ЖЖЖЖ 

140 7 "INITIALIZING ..... Я 

150 DIM О6(1),Ғ%((ІМТІАРРІ08) /р048)+1) 
Ж2048-Я0В(0%)-1),00%(1024) .Р0%1256) P1 
%1256) .P2$(256) P3$(254) 

160 DIM BL$(13) CR$(12) CRUS(12) СВҒ1$ 
(12) ,CRF2$(12) CRM$(12) STK$(32) НТ1$ { 
12) ,HT2$(12) ,5№0%(173) -HI=ADR(DD$) /256 
170 DIM GF1${15) ,GF2$(15) 084(13) СИВ 
$(12)} COLOR$(4) -GF1$="HIXLMXPQXTUXXXX" 
: GF2$=" JKXNOXRSXVWXZE X" 

180 REM ЖЖ Joystick Routine xk 

190 RESTORE 200:FOR J=1 TO 32:READ А:5 
ТКЗС, /}=СНА® (А) МЕХТ J:STK=ADRISTK$) 
200 DATA 104,173 ,132,2,240 12,173,207, 
& 240 20,169, 0,141,207, 6,240 13,173,20 
7,6,208,8,173,120,2,41,3,141,207,6,96 
210 REM ЖЖ Sound Data ЖЖ 

220 RESTORE 230:FOR J=1 ТО 173:РЕАВ А: 
SND${J J)=CHRS{A) МЕХТ J 

230 САТА 0.60,3,70,3,80,3,90,3,100 3,1 
00,3,0,0,108,10,108,10,108,10,81,20,44 
10.198.10.108,10,108.10,81.20 

240 DATA 64,10,0,30,53,10,85,10,53,10, 
76,10,53,10,96,10,53,10,91,20,102,10.4 
68,10,108,10,85,20,72,10,108,10 

250 DATA 108,10,108,10,85,20,72,10,0,5 
0.53,15,47,5,53,10,60,10,64,10,72,10,8 
1,20,40,20,0,0 

260 DATA 121, 40,91 ,30,91,10,91 80,121, 
40,81,30,96,10,91,80,121,40,91,30,72,1 
0,60,40,72,30,91,10,91,40,96,30 

279 DATA 91,10,81,80,0,0,243,40,243,40 
,843,10,243,40,204,40,217,10,217,40 
280 DATA 243,10 ,243, 40 255,10 243, 60.0 
,0,47,10,72,10,60,10,64,10,72,10,64,10 
,60.10,72.10 00 

290 Но=ІМТ (ADRI 5№0$ ) /256) :РОКЕ 209 НЄ: 
.5=АрА { 5№0$ ) -Н5ж255: POKE 208 15: 5000 
3.0,0,0 

300 DIF=1 

310 REM ЖЖ 00$ is Screen Data ЖЖ 

320 DD$i1)="@" : 00$ 448) ="@"- DD$(2)=DD$ 
:00% { 449 }=CHR$ {6} :00${828}=СН7$ (0) : 00% 
(450 }=00$ { 449) 


и” 
ЕУІ 
Фе її... 


з 
‚ н 









330 LINE1=ADR(DD$)+513:HL=INT(LINE1/25 
6) :LL=LINE1-HL*256: РОКЕ 88,LL:POKE 89, 
HL 
340 POKE 559 0:GOSUB 1140:GOSUB 1330:6 
O5UB 1530 
350 GRAPHICS 0:РОКЕ 754, START/256:GOSU 
В 1380:POKE 559,0:POKE 560,0:РОКЕ 561, 
6:РОКЕ 559,34: С050В 1710 
360 A=U5R(1670) : VERT=8:GOSUB 1780 : POKE 
88, LL:POKE 89,HL:POSITION 12,0:7 DIF: 
BRO=0 
370 POKE 708, &8:РОКЕ 709,254:POKE 710, 
86:РОКЕ 711,44:POKE 712,72:Р05ІТІ0М 16 
‚1:7 " courting crickets " 
380 POSITION 2,0:7 "dif level": RESTORE 
382:FOR J=1 TO 4:READ А:С010Р61/,.0-С 
НВФ (А) :МЕХТ J 
382 DATA 228,36,4,230 
390 00% (213, 252! = "ҮҮҮҮҮҮХХХХХҮҮҮҮҮҮХХХ 
ХХҮҮҮҮҮҮХХХХХҮҮҮҮҮҮ" 
400 00% (653, 692) ="ҮҮҮҮҮҮХХХХХҮҮҮҮҮҮХХХ 
ХХҮҮҮҮҮҮХХХХХҮҮҮҮҮҮ" 
410 DD${693)="_*XX_*XX_‘":DD$(7469)="ab 
XXabXXabX":REM ‘=CONTROL . 
420 GN=0 : WFLG=0 : СТЕТ=0 : DROP=0 :00% (552) 
="XXXXXXXXXXXXXX" : 00$ { 592 } ="ХХХХХХХХХХ 
XXXX" 
430 POKE 1622,15:DD$(712)=GF1$ :DD${788 
)=6Ға$ 
440 POSITION 16,7:7 "SELECT dif or FIR 
Е":РОКЕ 77,0 
450 IF STRIG(0)=0 THEN 450 
460 КЕҮ-РЕЕК(53279):ІҒ STRIG{0)=0 THEN 
500 
470 IF КЕҮ‹›5 THEN 460 
480 DIF=DIF+1:IF DIF>7 THEN DIF=1 
490 POSITION 12,0:7 DIF:GOSUB 1780:GOT 
0 460 
500 POSITION 16,7:7 " COURTING CRICKET 
5 ":GOSUB 1000:008(712)+ "ХХ" : DD${788)= 
nyy" 
510 A=USR(ADRISTK$)) 
520 IF GIFT=1 AND ҮР05-187 AND Р›100 A 
ND Р‹134 THEN GOSUB 820:GOSUB 790 
530 IF PEEK(1743)=0 THEN FLAG=0 
540 ТЕ FLAG=1 THEN 580 
550 5-РЕЕК(1743):ІҒ 5-2 OR 5-1 THEN FL 
AG=1 : PO${ YPOS)=CRU$:POKE 53767,170: РОК 
Е 1591,1:FOR J=1 TO 20:NEXT J 
560 IF S=2 AND VERT)0 THEN POKE 176744 
ЕНТ,0:Р0%( ҮР05)-В4%:ҮР05-ҮР05-16:Р0%(Ү 
POS )=СА$ : VERT=VERT-1:POKE 1747+VERT , 1 
570 IF 5-1 AND ЧЕРТ(8 THEN POKE 17474¥ 
ЕРТ, 0:Р0$ (УРО5 } =ВЕ $: YPOS=YPOS+16: PO$/Y 
POS) =СА$ : УЕРТ=УЕРТ+1 : POKE 17474VERT 1 
586 Р-РЕЕК(1791):ІҒ Р›190 OR P<60 THEN 
POKE 1747+VERT.0:GOTO 710 
590 POKE 53278,0 
8 


600 FOR J=1 TO 10:NEXT J 

610 IF PEEK(53252)>0 THEN POKE 1767+VE 
RT,0:GOTO 710 

620 IF ҮР05=59 AND P)100 AND Р(134 THE 
М POKE 1747+VERT,0:GOTO 840 

630 JPOS=JPOS+DELJ:IF JPOS>RTLU OR JPO 
S(LLJ THEN DELJ=-DELJ: JPOS=JP05+2xDELJ 
640 POKE 53250 ЈРО5 

650 DRCNT=DRCNT-1:IF DRCNT¢1 THEN DRCN 
T=10+5%(10-DIF) :DPOS=50:GOSUB 950: P3$( 
DPOS)=DRP$: DROP=1 : POKE 53251 . JPOS 

660 ТЕ DROP=1 THEN P3$(DP0S)=BL$ : DPOS= 
DPOS+DELTA : P3$(DPOS)=DRP$: SOUND 1, DPOS 
-40,10,10 

670 IF 0Р052240 THEN GOSUB 820:0р05=50 
680 IF РЕЕК(53260)-8 THEN POKE 1747+VE 
RT,0:GOTO 710 

690 GOTO 510 

700 REM ЖЖ Falling Cricket ЖЖ 

710 GOSUB 820 

720 PO${YPOS)=BL$ : YPOS=YP0S+6 : PO${ YPOS 
)=CRF1$:SOUND 0,ҮР05,10,10:ҒОВ J=1 TO 
30:NEXT J 

730 PO$(YPOS)=BL$ : YPOS=YP0S+6 : PO${ YPOS 
)=CRF2$: SOUND 0,ҮР05,10,10:ҒОВ J=1 TO 
30:NEXT J: IF ҮР05(240 THEN 720 

740 SOUND 0,0,0,0 

750 BRO=BRO+1:IF BRO=4 THEN 1030 

760 J=4k(BRO-1) :00$ ( 69341, 696+.) = "ХХХХ 
":00$ (76944, 77244) ="\2*Х" 

770 VERT=8:GOSUB 1710:POKE 1791,120:Р0 
КЕ 1622,15:С0Т0 510 

780 НЕМ ЖЖ Erase Next Gift ЖЖ 

790 GIFT=0:GN=GN+1:GOSUB 1000:008(712+ 
GNX3)="XX" : 00$ (788+GNK3) "ХХ" 

800 RETURN 

810 REM ЖЖ Eliminate Drop ЖЖ 

820 SOUND 1,0,0,0:Р38(0Р05) 816: РОКЕ 5 
3251 , 0: DROP=0 : RETURN | 
830 REM жж Reached Female ЖЖ 

840 GOSUB 820:POKE 1791 ,118 

850 IF GIFT=0 THEN GOSUB 920 

860 IF WFLG=1 THEN 1090 

870 FOR K=1 TO 10:Р1%(ҮР05-14)-НТ1% 
880 FOR J=15 TO 0 STEP -1:SOUND 0,20,1 
0, J:NEXT J:P1$(YPOS-14)=HT2$:FOR J=1 Т 
0 15:МЕХТ J:NEXT К 

890 IF 5ТВІС(0)=1 THEN 890 

900 PO${YPOS)=BL$:P1$(YP05-14)=BL$:5=1 
:GOTO 560 

910 РЕМ ЖЖ Print Gift ЖЖ 

920 СТЕТ=1:00${552)=651$11, (GN+1) Ж3}:0 
D$(592)=GF2$(1, (GN+1)*3):IF GN=4 THEN 
WFLG=1 

930 RETURN 

940 REM ЖЖ Pick a Weapon ЖЖ 

950 R=INT{RND(0}%4) RESTORE 960+10%8:Е 
OR J=1 TO 13: ВЕАС A:DRPS${J,J)=CHRSI{A): 
NEXT J:POKE 707 ,ASC(COLDR$(R+1)) 


952 RETURN 
960 DATA 20,72,34,20,74,40,8,127,127,6 
2, 62,28 28 

970 DATA 0,0,80,112 12 112,112, 112,12 
0,126,94,0,0 


980 DATA 0,0 48,95 64, 127,127, 64,2242 
24,0,0,0 

990 DATA 60,24,24, 24, 40,126,223, 215,24 
7 255,127 ,126,40 

995 REM ЖЖ Pick Another Gift ЖЖ 

1000 POKE 1522, 155:РОКЕ 707,92:POKE 53 
251,124+12жС№:ҒОВ J=1 TO 5:P3${205)=CU 
R$:FOR K=1 TO 30:NEXT K 

1010 P3$(205)=BL$:FOR К=1 TO 30:NEXT К 
:МЕХТ J: RETURN 

1020 REM ЖЖ No More Brothers ЖЖ 

1030 POKE 1622 ,131:POKE 53277 ,0:FOR J= 
53261 TO 53264:POKE J,0:NEXT J:GRAPHIC 
5 18:POS5ITION 4,3:7 #6;"All Brothers" 





1040 POSITION 6,4:7 #6;"are бопе" 
1050 POSITION 3,7:7 #6;"PRESS start ТО 
":POSITION 5,8:7 #6;"try again" 
1060 IF РЕЕК(53279) (36 THEN 1060 
1070 GOTO 350 
1080 REM ЖЖ Marriage Takes Place ЖЖ 
1090 POKE 14622 ,93:FOR L=0 TO 6:FOR K=0 
TO 3:Р05=64Ж +1 6%К : 00$ (РО5+1 }="ХХХХс9 
ХХХХсахххх" : NEXT К:МЕХТ L 
1100 FOR J=1 ТО 1000: МЕХТ J 
1110 POKE 53277 ,0:FOR J=53261 TO 53264 
:РОКЕ Ј,0:МЕХТ J:GRAPHICS 18:POSITION 
3,3:7 #6; "Апа They Lived" 
1120 POSITION 1,4:7 #6;"Happily Ever А 
fter": GOTO 1050 
1130 REM Ж Change character set x 
1140 DIM 22%(32) : ВЕЅТОВЕ 1150:FOR I=1 
ТО 32:READ A:ZZ${1)=CHR$(A):NEXT I 
1150 DATA 104,104,133 ,204,104,133,203, 
104,133,206 104,133, 205,162 ,4,160,0 
1160 DATA 177,203,145 205,134,208 249, 
230,204,230 206 202 208,240 96 
1170 POKE 106,РЕЕК{106}-5:5ТАЯТ= { PEEK { 
106}+1}Ж256 
1180 A=USR{ADR(ZZ$) , 57344, START) : RESTO 
ВЕ 1200:FOR I=START+512 TO START+807:R 
EAD A:POKE Т,А: МХТ I 
1190 RETURN 
1200 DATA 0,0,0,0,0,0,0,170,0,63,58,57 
,38,63,63,170,0,252,172,108,172,252,25 
2,170 
1210 DATA 0,255,170,85,170,255,255,170 
.0,51,33,18,33,255,85,170,0,191,239,25 
1,254,255,255,170 
1220 DATA 0,255,215 215 215,190 235,17 
0,0,254,251,239,191,255,255,170,0,1,32 
1184,32,12,3,16 
1230 DATA 64,208 64,224,184 224 192,19 
2,116,28,3,0,0,0,0,0,200 238 248 , 192,1 
92,192,192,192 
1240 DATA 0,0,0,0,2,2,3,3,0,0,0,0,128, 
128,192,192,13,55,219,222 223 55,13,3 
1250 DATA 112,220,247,247,247,220,112, 
192,0,0,0,58,234,234,233,229,0,0,0,40, 
234, 170,154,86 
1260 DATA 233,233,57,58,58,14,14,13,86 
‚70,90,104,104,160,160,128,0,3,12,48,1 
92,192 48 12 
1270 DATA 48,204,3,3,3,12,48,12,12,3,1 
2,48,14,2,2,0,3,3,3,12,32,160 ‚150 ‚128 
1280 DATA 0,0,0,0,0,0,0,0,233,181,173, 
183,222,122 94,107 ,2,10,2,4,16,16,4,1, 
128,160,128,16,4,4,16,64 
1290 DATA 0,0,3,15,15,204,63,15,0,0,0, 
207 ,204 255,255,195 ,0,0,240 48,48 48,2 
40,240 
1300 DATA 0,0,84,5,17,5,1,5,0,0,21,80, 
68,80,64,80,17,65,1,4,420,0,0 
1310 DATA 68,65,64,16,16,20,0,0,40 190 
,179,176,176,44,11,2,80,244,52,52,52,2 
08,64,0 
1320 REM ЖЖ VBI Routine ЖЖ 
1330 DIM VBI$(75) :RESTORE 1340:FOR J=1 
ТО 75:READ A: UBI$(J,J)=CHR$(A) :МЕХТ J 
: VBI=ADR{ VBI$) : RETURN 
1340 DATA 216,162,0,160,0,222,240,6,16 
‚42,189 224, 6,157,240 6,189,232, 6,240, 
10,24 
1350 DATA 173,255,6,125,248 46,141,255, 
6,24,185,16,6,125,216,6,153,16,6,201,2 
08,6,208,6 
1360 DATA 189,200 ,6,153,16,6,200,200,2 
90,232,224,7,144,201,173,255,6,141,0,2 
08,32,57,6,32,88,6,76,98,228 
1370 REM ЖЖ Display List in Page 6 ЖЖ 
1380 RESTORE 1390:FOR J=1536 TO 1679:R 
EAD A:POKE J,A:NEXT J 


1390 DATA 112,112,112,70,0,0,68,20,0,6 

8,60,0,59,100,0, 9,0,0, 69,80,0, 69 128, 

0,69 ,208, 0, 9,0,0, 980,0 

1400 DATA 69, 128, 0, 69, 140,0, 68, 180,0 

1410 DATA 68,0,0,70,40,0,65,0,6 

1420 DATA 0,0,0,0,0,0,172,55, 4,240 23, 

206 ,56,6,16,18,177, 208,141, 6 210,200 

1430 DATA 177,208,240,5,141,56,6,200,1 

52,141 ,55,6,96 

1440 DATA 0,0,172,86,6,240,40,206,87,6 
‚48,17,169,13,205,87.6,144,3,173,87,6, 

9,160,141,5,210,208,18,177,208 

1450 DATA 141,4,210,200,177,208,240,5, 

141,87,6,200,152,141,86,6,96,104,160,0 
,162,0,169,7,76,92 228 

1460 RESTORE 1470:FOR J=1541 TO 15683 5 

ТЕР 3:READ A:POKE J,HI+A:NEXT J 

1470 DATA 2,2,2,2,0,0,0,0,1,1,1,2,2,3, 

3 

1480 RESTORE 1490:FOR J=1736 TO 1791:R 

EAD A:POKE J,A:NEXT J 

1490 DATA 0,80,128,208,0,80,128,0,16,6 

4,144,192 ,16,64,144,0,1,255,1,255,1,25 

5,1,0 

1500 DATA 20,12,9,12,15,18,21,0,0,0,0, 

0,0,0,0,0,20,12,9,12,15,18,21,0,252,4, 

852,4,252,4,252,120 

1510 НУ-ІМТ(УВІ/256):РОКЕ 1674, НУ: РОКЕ 
1672 , VBI-254xHY 

1520 RETURN 

1525 REM ЖЖ PM Images ЖЖ 

1530 RESTORE 1540:FOR J=1 TO 12:READ A 
:CR$ (J, J)=CHR$ (A) : NEXT J 

1540 DATA 231,60,90,60,24,60,90,153,24 
‚36,36 ‚102 

1550 RESTORE 1560:РОР J=1 TO 12:READ А 
:СВ.ЈФ (J, JI=CHR$ (A) :NEXT J 

1560 DATA 66,36,60,90,60,153,126,24,24 
‚60, 66,195 

1570 BL$(1)=CHR$(0) : Ві $ (13)=СНА$ (0) : BL 

$(2)=BL$ 

1580 RESTORE 1590:FOR J=1 ТО 12:READ А 
:CRF1$(J, J)=CHR$ (A) : NEXT J 

1590 DATA 195,36,60,90,60,25,62,88,156 
,36,38,96 

1600 RESTORE 1610: Е08 J=1 TO 12:READ А 
:CRF2${J, J)=CHR$ (A) :NEXT J 

1610 DATA 195,36,60,90,60,152,124,26,5 

7,34,100,6 

1620 RESTORE 1630:РОА J=1 TO 12:READ А 
:СРМ$ (J, J)=CHR$ (A) :NEXT J 

1630 DATA 66,165, 60,90 ,36,24, 126,153, 4 

0.126 ,34,102 

1640 RESTORE 1450:FOR J=1 ТО 12:READ А 
:НТ1$ (У, J)=CHR$ (А): МЕХТ J 

1650 DATA 0,216,248 248 112,32,0,27,31 
‚31,14,4 

1660 RESTORE 1670:FOR J=1 TO 12:READ А 
:НТа$ (J, J)=CHR$ (A) : NEXT J 

1670 DATA 0,27,31,31,14,4,0,216,248,24 

8,112 за 

1680 RESTORE 1490:FOR J=1 TO 12:READ A 
:СОЯФ СОЈ, =СНВЅ (А) : NEXT J 

1690 DATA 88,238 254,254,254 254 254 1 

24,124,56,56,16 

1700 REM ЖЖ РМ Init. xx 

1710 Р0${1)=СНА$ (0) :P0$(254)=CHR$(0):P 

0$(2)=P0$ : YPOS=187 : PO${ YP0S)=CR$ 

1720 Р18(1)-СНВ%(0):Р1%(256)-СНВ%(0):Р 
18(2)-Р1%:Р2%(11-СНВ%(0):Р2%(256)-СНР% 
(0):Рг%(2)-Ра% 

1730 Р3%(1)-СНВ%(0):Р3%(256)-СНВ%(0):р 

3$(2)=P3$ : P1$(60)=CRM$ : P2$(44)=CR$: JPO 
$=100 : DELU=3: RTLJ=200 : LLU=50 : DELTA=6 
1740 POKE 54279 „НТ: РОКЕ 559 „62: РОКЕ 53 

277,3:РОКЕ 53248,120:РОКЕ 704,116: РОКЕ 
53249 ,126:POKE 705,92 
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1750 POKE 53250 ,100:POKE 706,20:POKE 7 
07,0:POKE 623,1 

1760 RETURN 

1770 REM ЖЖ Packages on Belts xx 

1780 DD${1)="@" : 00% { 448) ="@"; 00$ {2}=006 
$ 

1790 FOR „1760 TO 1766: SPEED=RND(0)x{ 
9-DIF )*k4+(7-DIF):IF DIF)3S THEN ЗРЕЕП-5 
PEEDK1 8 

1792 POKE J,SPEED:NEXT J 

1890 FOR 150 TO 6: РЕЗТОВЕ 1850+10Ж RE 
AD Ғ%:ҒОВ К=0 70 3 

1810 Р05-64Жі %16ЖК:00%(р0541)-Ғ% 

1820 IF DIF)3 THEN 00% (р0549)-Ғ% 

1840 NEXT К:МЕХТ L: RETURN 

1845 REM ЖЖ CHAR. IN 18661880 & 1900 

ARE INVERSE ЖЖ 

1850 DATA ACB 

1860 DATA АСВ 

1870 DATA DDD 

1880 DATA EFG 

1890 DATA EFG 

1900 BATA DDD 

1910 DATA EFC 


% 


Ruth’s Pilot, Con‘t 


5540 T:' i y 
5550 Р05:15,23 
5560 71:555505 
5570 J: kWRONG 
5580 Е: 

5590 ЖҮ 

9400 С:%Х-Ү 

5610 Р05:15 23 
5420 р.н 
5621 Р05:20,#С 
9430 Т:) 

5640 Ш(@В7&4=43) : KRIGHT 
5650 РА:#Ү 

9651 Т:} 

5660 C:#C=#C+2 
5670 .М%СХ(19): xY 
5680 Р05:17,18 
5690 Т:! : 
5700 Р05:15,20 
5710 Т:! | ' 
5720 Р05:15.23 
5730 Течение 
5740 J: жиронс 

5750 Е: 

5780 ж2 

5770 С:%Х-2 

5780 Р05:15,23 
5790 7-55“ 
5791 Р05:20 ЖС 
5800 T:z 

5810 J(@B764=23) : *RIGHT 
5820 PA:#Y 

5821 Т:» 

5830 C:#C=#Ct+2 
5840 .%С(19):ж2 
5850 Р05:17 18 
5840 Т: ' ; 
5870 Р05:15,20 
5880 T:' | ‘ 
5890 р05:15,03 
5900 7-55“ за 
5910 J: xWRONG 

5920 E: 


ЖЫЙ BS наза ДЫШ ШБ ШЫН БЫШ жи... 
нен аа жаа бл SS СЫЛЫ ИНЕШ ШЫЙ ВИК. 
4 БЕН ЖЕН ЕНЕ ЖҮН БИН БЕН Ко 

Шаа ы асы ыы жон жоқ асы Яса а ШШ | 

9 ав жас рне кав наз ығы зер юга ана ВА 
ти сик өле теп жеп аға ені ӨЛЕ Өш ОНЕ РНЕ 1: - 
а д5 ыл дла Б қызы ЖОЙ БЕЙ Шй: 
нн (ШЙ ы замо пона жол жөн іал неи аак: ПАН 84 1. 
Е ЧИН тет иә төн ОНИ ПН жн Ене жн ж Е 4 ШЕТ 
аа ШЫ БЫН! жи жи ШЫК ана ОЕШ ШЫЙ RRR иі. 
маи баШ жән Ши ай жы Вана ад 
БИН "ЕНЕ ФЕРИ ИШ! тетите ТИРИ | 
шаш аы | ашықты най алаты 
йш вази: | A СНИ жие Бы 1 
Я ТИП ША БИН ӘНІ ТҰП БӨ Ен 
нин) шашынан шы ШОШ! 


ТТ Ба пашаш: 
тт. тв г тт 
TTT.) mel. tf oe 


ETT ти гттт 
т гг Mel Lt Е 
LET T ТЕ ГЕТЕ 


E ёш ee OF ал аа си т 





KNIGHTS 
Ьу Sydney Brown 


1 REM ЖКЖЖЖКЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЕЖЖЖЯЖ 
2 REM ЖЖ KNIGHTS by Sydney Brown Ж 


З REM ЖЖ FEB 83 Ж 
4 REM ЖҰЖ АСЕ NEWSLETTER x 
5 РЕМ ЖЖ 3462 VINE MAPLE Ж 
6 REM ЖЖ EUGENE, OR 97405 xx 
7 REM ЖЖ $ 10 YR жж 


8 REM ОООО ООК ЖЖ 

10 7 "}":РОКЕ 710,194:7 ,:РЕМ 1№.:7 " 
KNIGHT FOR А DAY ":7 :7 "YOU ARE SIR 
CYRIL THE BRAVE AND YOU" 

12 7 "HAVE SET OUT TO RESCUE THE BEAUT 
IFUL":7 "PRINCESS WHO WAS CAPTURED AND 
LOCKED" 

14 7 "IN THE TOWER OF THE EVIL KINGS С 
ASTLE":? :7 "YOU BEGIN IN THE ENTRANCE 
CHAMBER 0Ғ":7 "THE CASTLE." 

16 7 :7 "YOU MUST SEARCH ALL THROUGH Т 
НЕ VERY"; :7 "CONFUSING MAZE OF ROOMS А 
ND FIND THE" 

18 7 "THREE STAIRCASES ,ONE LEADS TO AN 

OTHER": ? “TOWER & YOU ARE SENT BACK ТО 
THE" :? "ENTRANCE CHAMBER TO BEGIN AGA 
її." 

20 7 "ANOTHER LEADS TO THE DUNGEON WHI 
СН":7 "ALSO LEADS BACK ТО THE ENTRANCE 
HALL.” 

га ? "THE THIRD LEADS TO THE TRAPDOOR 

ROOM,":? "IF YOU MAKE IT PAST THIS ROO 

М THEN YOU"; :7 "HAVE MADE IT." 

24 7 :7 "THE TIME YOU ТАКЕ 15 SHOWN АТ 
THE ЕМ0":7 :REM ІНУ:? " PRESS THE STA 

RT BUTTON AND STAND-BY"; 

80 IF РЕЕК(53279)(26 THEN 80 

90 POKE 104,PEEK(106)-2 

95 GRAPHICS 18:РОКЕ 708,30:POKE 709,14 

0:РОКЕ 710,188: АЕРЕЕК! 105) ж256 

100 FOR B=0 TO 511 

101 IF (6423 AND В(456) OR B>443 THEN 
READ D:POKE A+B,D:NEXT B:GOTO 110 

106 POKE А+В, PEEK(57344+B) :NEXT В 

116 ТМ=0:РОЅІТІОМ 0,0:7 #6;"3":POKE 71 

0,10:РОКЕ 712,0:РОКЕ 708,44: РОКЕ 709,2 

22:POKE 711,140:POKE 756, РЕЕК( 106) 

190 GOSUB 2000 

191 H=10:V=11: POSITION 0,11:REM INV :7 

#6; "и": GOSUB 900:ҒОР W=0 TO 10:COLOR 2 

45:PLOT М,11:ҒОН WW=1 TO 100:NEXT WW 

192 COLOR 32:PLOT W,11:NEXT W:COLOR 24 

5:PLOT 10,10:FOR W=1 TO 100:NEXT W:COL 

OR за: РОТ 10,10:COLOR 245:PLOT 10,9 

193 FOR WW=1 TO 100:NEYT WW:COLOR 32:P 

LOT 10,9:COLOR 245:PLOT 10,8:FOR WW=1 

ТО 100:МЕХТ WW:COLOR 32:PLOT 10,8 

198 GOSUB 920:COLOR 245:PLOT H,V:X=8:@ 

9=0 


200 ТМ=ТМ+1:5Т=5Т1СК(0):1Е ST=11 THEN 
LOCATE Н-1,0,2:ІҒ 2=32 THEN COLOR 32:P 
LOT H,V:COLOR 245:H=H-1:PLOT H,V 
202 POKE 77,0:ТЕ ST=7 THEN LOCATE НІ, 
V,Z:IF Z=32 THEN COLOR 32:PLOT Ну: СО. 
OR 245:H=H+1:PLOT H,V 
204 IF ST=14 AND V)0 THEN LOCATE H,V-1 
,2:1Е Z=32 THEN COLOR 32:PLOT H,V:COLO 
R 245: V=V-1:PLOT H,V 
206 IF 5T=13 AND 0‹10 THEN LOCATE H.V+ 
1,7:1Е 2-32 THEN COLOR 32:PLOT H,V:COL 
OR 245: V=V+1:PLOT H,V 
270 IF У(1 THEN Х=Н:Н=10:0=11:С0Т0 290 
279 FOR W=1 TO 77:NEXT W:GOTO 200 
290 IF Х(8 THEN XX=A:ON A GOSUB 925,93 
0,935 
291 IF X)11 THEN ХХ=В:0М В GOSUB 925,9 
30,935 
292 IF Х‹12 AND X)7 THEN ХХ-С:0М С GOS 
UB 925,930,935 
295 COLOR 245:PLOT H,¥ 
300 00-0:5Т-5ТІСК(0):ІҒ ST=11 AND H)O 
THEN LOCATE H-1,V,Z:IF Z=32 THEN COLOR 
32:PLOT H,V:COLOR 245:H=H-1:PLOT Ну 
301 POKE 77,0 
302 TM=TM+1:IF ST=7 AND Н‹19 THEN LOCA 
ТЕ Ht1,V,Z:IF Z=32 THEN COLOR 32: PLOT 
НУ: СОБОР 245:H=H+1:PLOT Н,) 
304 IF 5T=14 AND У>0 THEN LOCATE H,V-1 
‚7:1Е 2-32 THEN COLOR 32:PLOT H,V:COLO 
R 245: V=V-1:PLOT Ну 
306 IF ST=13 AND V<10 THEN LOCATE Н, V+ 
1,Z:IF Z=32 THEN COLOR 32:PLOT H,V:COL 
OR 245:V=V+1:PLOT Ну 
340 IF Н‹1 ОР Н›18 OR Wi THEN 355 
350 FOR W=1 ТО 77:NEXT W:GOTO 300 
355 IF XXOQ THEN 360 
356 IF Н(1 AND A=3 THEN GOSUB 940:С0Т0 
400 
357 IF H)18 AND C=3 THEN GOSUR 940: БОТ 
0 400 
358 IF 0‹1 AND B=3 THEN GOSUB 940:С0Т0 
400 
360 IF Н‹1 AND XX=1 THEN ON А1 GOSUB 9 
20,930 ,935 
361 IF НС AND ХХ=2 THEN ON А2 GOSUB 9 
25,920,935 
362 IF H(1 AND XX=3 THEN ON АЗ GOSUB 9 
25,930 ,920 
365 IF H)18 AND XX=1-THEN ON Ci GOSUB 
920,930,935 
366 IF H)18 AND ХХ=2 THEN ON CZ GOSUB 
925 920,935 
367 IF H)18 AND XX=3 THEN ON СЗ GOSUE 
925,930,920 
370 IF V<1 AND XX=1 THEN ON B1 GOSUB 9 
20,930,935 
371 IF 9(1 AND XX=2 THEN ON Ва GOSUB 9 
25,920,935 
372 IF У(1 AND XX=3 THEN ON ВЭ GOSUB 9 


25 , 930 , 920 
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380 H=10:V=11:COLOR 245:PLOT H,V:IF 99 
=1 THEN 08-0:0070 200 
399 XX=X:GOTO 300 
400 ST=S5TICK(0) : ТМЕТМН1 : POKE 77,0 
401 IF 57=11 AND H)2 AND V=10 THEN COL 
OR 32:PLOT H,V:COLOR 245:H=H-1:PLOT H, 
у 
402 ТЕ 5Т-7 AND Н‹13 AND 9510 THEN COL 
OR 32:PLOT H,V:COLOR 245:H=H+1:PLOT H, 
у 
404 IF 5Т-6 THEN LOCATE Н+1 ,¥-1,Z:IF Z 
=122 OR Z=32 THEN COLOR 32:PLOT H,V:H= 
H+1:V=V-1:COLOR 245:PLOT H,V 
405 IF Z=122 THEN 450 
406 ТЕ 5Т=9 THEN LOCATE H-1,V+1,Z:IF Z 
=32 THEN COLOR 32:PLOT H,V:COLOR 245:H 
=H-1 : V=V+1 : PLOT H,V 
449 FOR W=1 ТО 77:NEXT W:GOTO 400 
450 IF V=2 THEN ON А5 GOTO 480,490,550 
452 IF V=5 THEN ON BS GOTO 480,490,550 
454 ON CS СОТО 480, 490 550 
480 GOSUB 950:H=18:V=11:COLOR 245: PLOT 
H,¥:GOTO 600 
490 SOUND 0,0,0,0:РОКЕ 53768,5: РОКЕ 53 
761 ,168:POKE 53765, 168: РОКЕ 53760 ‚254: 
POKE 53764,127:60506 960 
495 COLOR 245:H=1:V=10:PLOT H,V 
500 POKE 77,0: TM=TMt1:ST=STICK(0):IF 5 
Т=6 AND 923 THEN COLOR 32:PLOT H,V:H=H 
+1:У=9-1: COLOR 245:PLOT H,V 
502 IF 5Т-11 AND Н›8 AND 9=3 THEN COLO 
Я 32:PLOT H,V:H=H-1:COLOR 245:PLOT H,V 
504 IF 5Т-7 AND Н(19 AND 9-3 THEN COLO 
R за: пот H,V:H=H+1:COLOR 245:PLOT H,V 
530 IF H=19 THEN SOUND 0,0,0,0:5OUND 2 
,0,0,0:GO0TO 540 
539 FOR W=1 TO 35:NEXT W:GOTO 500 
540 POKE 712,0:GOSUB 920:H=10:V=11:COL 
OR 245:PLOT H,V:GOTO 200 
550 GOSUB 910:COLOR 245:PLOT 4,3:FOR W 
ші TO 7:R=RND(0)*220+5:S50UND 0,R,10,10 
: SOUND 1,R4+1,10,10:FOR WW=1 TO 77 
589 NEXT ММ: МЕХТ W:SOUND 1,0,0,0: SOUND 
0,0,0,0:GOSUB 920:H=10:V=11:COLOR 245 
‘PLOT H,V:GOTO 200 
600 ТМ-ТМ%1:5Т-5ТІСКі0):ІҒ ST=11 THEN 
LOCATE H-1,V,Z:IF 2-32 THEN COLOR 32:P 
LOT H,V:COLOR 245:H=H-1:PLOT H,V 
601 IF Z=123 THEN 490 
602 IF ST=7 THEN LOCATE Ht1,V,Z:IF 7-3 
2 THEN COLOR 32:PLOT H,V:COLOR 245:H=H 
+1:PLOT Н 
803 IF Z=123 THEN 490 
604 IF 5Т=14 THEN LOCATE H,V-1,Z:IF Z= 
32 THEN COLOR 32:PLOT H,V:COLOR 245:V= 
V-1:PLOT H,V 
605 IF Z=123 THEN 490 
606 ТЕ ST=13 AND 9(10 THEN LOCATE Н,У% 
1,Z:IF Z=32 THEN COLOR 32:PLOT H,V:COL 
OR 245: V=V+1:PLOT H,V 
407 IF 2=123 THEN 490 
610 IF у‹1 THEN 650 
649 FOR W=1 TO 35:NEXT W:GOTO 400 
650 GOSUB 910:COLOR За: РОТ 16,3:POSIT 
ION 10,10:7 #0; "их" 
660 RESTORE 1900:FOR W=1 TO 14:READ Е: 
READ D:SOUND 0,F,10,10:SOUND 1,F+1,10, 
10:FOR WW=1 TO D:NEXT WH: NEXT М: SOUND 
0,0,0,0:50UND 1,0,0,0 
670 POSITION 6,0:7 #6;"time="; ТМ 
690 POSITION 4,11:7 #6;"press start" 
695 IF РЕЕК(53279)(26 THEN 695 
699 GOTO 110 
900 GOSUB 910:POSITION 0,0:7 46;" КМ 
GHT FOR А DAY":SOUND 0,0,0,0:POKE 5376 
8,4: РОКЕ 53761 ,168:POKE 53765 ,168 
902 POKE 53760 ,254:POKE 53754, 127: РОВ 
МХ=1 TO 7:FOR W=12 TO 252 STEP 16:POKE 


710,8 





905 FOR ШЫ=1 TO 10:NEXT WW:NEXT W:NEXT 
WX: POSITION 0,0:7 %6;" 


909 SOUND 0,0,0,0:500М0 2,0,0,0:РЕТИВМ 


910 POSITION 0,0:7 #6; "}":РОКЕ 712,0:P 
ОКЕ 709, 222:POKE 708,44:POKE 711,140:P 


OKE 710,10 
911 POSITION 2,2:7 е” Ж 
“+"рб51Т10Н 3,3:7 #6;"* * АЙ 
":р051Т10Н 3,4:7 #6;"*** К ле 


912 POSITION ih ae ың. РК. 
913 POSITION 22227 #6;"°°° i = а СЕ 
":FOR W=6 ТО 10:POSITION 3,W:7 #6;"""* 


914 COLOR 32:PLOT 4,8:PLOT 6,8:PLOT 10 
(8:PLOT 14,8:PLOT 16,8:FOR W=9 TO 11:P 

LOT W,9:PLOT W,10:PLOT W,8:NEXT W 

919 RETURN 

920 POSITION 0,0:7 #6;"}":90=1 

921 POKE 708,44:GOSUB 990:COLOR 32:PLO 

Т 4,0:PLOT 5,0:PLOT 9,0:PLOT 10,0:PLOT 
14,0:PLOT 15,0:PLOT 9,11:PLOT 10,11 

924 RETURN 

925 POSITION 0,0:7 #6;")":Х=1 

926 POKE 708,90:GOSUB 990:COLOR 32:PLO 

T 0,5:PLOT 0,6:PLOT 9,0:PLOT 10,0:PLOT 
19,5:PLOT 19,4:PLOT 9,11:PLOT 10,11 

929 RETURN 

930 POSITION 0,0:7 #6;"3":X=2 

931 POKE 708,202:GOSUB 990:COLOR 32:PL 

ОТ 0,5:PLOT 0,6:PLOT 9,0:PLOT 10,0:PLO 

Т 19,5:PLOT 19,6:PLOT 9,11: PLOT 10,11 
934 RETURN 

935 POSITION 0,0:7 #6; "2": Х=3 

936 POKE 708,138:60508 990:COLOR 32:PL 
OT 0,5:PLOT 0,6:PLOT 9,0:PLOT 10,0:PLO 
Т 19,5:PLOT 19,6:PLOT 9,11:PLOT 10,11 
939 RETURN 

940 POSITION 0,0:7 #6;"}":POKE 708, 44: 
POKE 709,6:POSITION 0,0 

CAT E ыса вок ағала ЕН 
КЕРЕП "ЕТТЕР и. 
NEXT W:COLOR 32:PLOT 10,8:DRAWTO 8,10 
942 PLOT 9,3:DRAWTO 2,10:DRAWTO 13,10: 
DRAWTO 17,4:COLOR 122:PLOT 10,2:PLOT 1 
1,7:PLOT 18,5 

949 H=10:V=10:COLOR 245:PLOT H,V:RETUR 
N 

950 POSITION 0,0:7 #6;"}":POKE 708,14: 
POKE 709,38:GOSUB 990:PLOT 6,1:DRAWTO 
6,6:PLOT 13,10:DRAWTO 13,5 

951 COLOR 32:PLOT 1,0:PLOT 2,0:PLOT 17 
‚11:РЬОТ 18,11 


952 COLOR 123:PLOT 9,1:PLOT 10,10:PLOT 
1,5:PLOT 18,6:FOR W=1 TO 14 

953 Ү-ІМТІРМ0(0)Ж8)%2:Х-ІМТІРМ0(0)%16) 

+2:10САТЕ X,Y,Z:IF 20032 THEN 953 

954 PLOT X,Y:NEXT W 

959 RETURN 

960 POSITION 0,0:7 #6;"3":POKE 712,4:P 

OKE 710,0:POKE 708,10 

961 W=8:COLOR 94:FOR Ү=4 TO 10:FOR Хей 
ТО 19:PLOT Х,Ү:МЕХТ X:W=W-1:NEXT Y:CO 

LOR 219:FOR W=4 TO 16 STEP 4:FOR X=W T 

о ше 

962 PLOT X,9:PLOT Х,10:МЕХТ X:NEXT W:P 

LOT 11,4:PLOT 15,4:COLOR 218:PLOT 19,3 

969 RETURN 

990 COLOR 94:PLOT 0,0:DRAWTO 19,0:DRAW 

ТО 19,11:DRAWTO 0,11:DRAWTO 0,0:RETURN 


999 RETURN 

1000 DATA 28,8, 62,93,93,20,20,54,1,3,7 
,15,31,63,127, 255,255,127 ,43,31,15,7,3 
‚1 


1005 DATA 0,8,120,8,28,62,8,24,126 126 2012 Сі-ІМТІРМ0(02Ж3)41:1Ғ C1=A1 OR СІ 
‚126,126 94,126, 126,126,170, 255,170,17 =В1 THEN 2012 

0,170,170, 255,176 2020 AB=INT(RND(0)*3)41 

1010 DATA 0,0,0,0,0,0,0,0,0,0,0,0,0,0, 2021 B2=INTIRND(0)43)+1:IF B2=A2 THEN 
0,0,0 2021 

1050 DATA 253,253,253,0,223,223,223,0, 2022 C2=INTIRND10)43)+1:IF C2=A2 OR са 
0,0,0,0,0,0,0,0 =B2 THEN 2022 

1900 DATA 49,75,53,60,75,25,59,50,65,5 2030 AI=INT(RND(0)3) +1 
0,75,50,90,50,100,50,110,25,100,25,90, 2031 B3=INT(PND(0)K3)4+1:IF ВЗ-АЗ THEN 
50,100,25,90,25,80 150 2031 

2000 А=1МТ(ВМ0(0)Ж%3)+1 2032 СЗ-ІМТ(РМ010)Ж31%1:1Ғ C3=A3 OR СЗ 
2001 B=INT(RND(0)X3)+1-IF Вей THEN 200 =B3 THEN 2032 


1 


2040 AS=INT(RND(0)*3) +1 


2002 C=INTIRND(0)*3)+1:IF Сей OR C=B Т 2941 В5=ІМТ:АМО(0)Ж3)+1:ІРҒ В5=А5 THEN 
НЕМ 2002 2041 

2010 A1=INT(RND{0)%3)+1 2042 CS=INT(RND{0)¥3)41-IF CS=AS OR CS 
2011 В1=ІМТ:РМ0(0)Ж3)+1:ІРҒ В1=А1 THEN =B5 THEN 2042 

2011 2050 Q=INT(RND{0)*3)+1 


2099 RETURN 


оочер 


MACHINE LANGUAGE 3 
by Stan Ockers 
10 ; MOVING CURSOR ROUTINE 
20; 
30 ; Тһе cursor position is held in page zero 
40 ; locations $54 (row) and $55 (column) 0 
50 ; Joystick 0 values appear at $0278 
80; 
0278 70 STICKO = %278 
0054 80 ROWCRS = $54 
0055 90 COLCRS = %55 
0100 ; 
0000 0110 x= $0600 
0120 ; 
0600 68 0130 PLA ; for USR 
0601 AD7802 0140 LDA 5ТІСК0 ; read Joustick 
0604 С90Е 0150 СМР #$0E ; is it UP? 
0606 0902 9140 BNE DN ; no 
0608 C454 0170 DEC ROWCRS ; yes, cursor up one 
040A C90D 0180 DN CMP #$0D ; 15 it DOWN? 
060C 0000 0190 BNE LEFT ; по 
060Е E454 9200 INC POWERS ; yes 
0610 С908 0210 LEFT CMP 508 ; is it LEFT 
0612 0002 0220 BNE RIGHT 
0614 C455 0230 DEC COLCRS 
0616 C907 0240 RIGHT CMP %%07 ; 15 it RIGHT? 
0618 0002 0250 BNE ШТ 
0618 E455 0240 INC COLCRS 
061С 60 0270 OUT RTS ; back to Basic 
0280 ; 
0290 ; Listing #1 
0300 ; 
0310 ; 
0320 ; ANSWERS TO PROBLEMS 
0330 ; 
0340 ; Problem #3: Fill Screen with A's 
0350 ; | 
0610 0360 X= $0600 
0600 68 0370 PLA ; as usual 
0601 А004 0380 LDY %%04 ; four pages 
0603 A921 0390 LDA #$21 ; ап ASCII ‘A’ 
0605 A200 0400 LDX #$0 ; Start at zero _.. 
0607 CA 0419 LOOP1 DEX ; and go thru all ... 
0408 9D407C 0420 STA $7C40,X ; (inserting A's) .. 
050В DOFA . 0430 BNE LOOP1 ; until zero again 
0600 ЕЕОА06 0440 ІМС $060A ; HI byte up one 
0610 88 9450 DEY ; ck for last page 
0611 DOF4 0440 BNE LOOP1 ; пої yet 
0613 FOFE 0470 


0480 
0490 
0500 
0510 
05е0 
0530 
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LOOP2 BEQ LOOPe2 ; endless loop 

; Notes: (1) My screen starts at 

; 57с40 {32К), yours may differ. 

; {2} We actually try to fill 1024 bytes 
; {screen has 940) but screen data 

; 15 at very top of memory. The extra 


Machine Language 3, Con’t 0644: BO 03 00530 BCS .2 
064С: ЕЕ DO 06 00540 INC LMSti 


DF 06 00860 .1 STX HSCRL 
04 04 00870 5ТХ HSCROL 


Jon Atack эй 


0540 ; doesn't overrun anything. 044F: АР 00 00550 .2 LDX #0 
0560 ; the program without fixing it up 0454: ВЕ 05 04 00570 5ТХ VSCROL 
0580 ; 065A: 29 01 00590 AND #1 
0590 ; 065C: 00 1+ 00600 BNE МОТОР 
0600 ; Problem #4: Execution Тіве of Loops 065Е: AE ЕО 06 00610 LDX VSCRL SCROLL UP 
0610; 0461: CA 00620 DEX 
0615 0620 ж= $0600 0662: 10 12 00620 BPL 1 
0500 68 0630 PLA 0664: AD CF 06 00640 LDA LMS 
0601 А914 0640 LDA #$14 М 20 (decimal) outersost loops 0557: 38 00650 5ЕС 
0503 8500 0550 STA $00 ; using page zero cntr. 0668: Е9 18 00660 SBC #24 
0607 A000 0670 LOP2 LDY #$0 0660: (9 EB 00680 CMP $232 
0609 88 0680 LOPI DEY ; іппегасѕї loop O44F: 90 03 00690 BCC 2 
040A DOFD 0690 BNE LOPI 0671: СЕ DO 06 00700 DEC 1М5+1 
060С CA 0700 DEX ; second loop 0674: АР OF 00710 .2 LDX #15 
0600 DOF8 0710 BNE LOPE 0676: ВЕ ЕО 06 00720 .1 STX VSCRL 
9611 00Р; 0730 BNE LOPS 067С: AD 00 D3 00740 NOTUP LDA STICK 
0613 50 0740 RTS ; back to Basic 067Е: 29 04 00750 AND #4 
0750 ; 0681: DO iA 00760 BNE NOTLFT 
0760 ; Note: Takes approx. 6 sec. | 0683: АЕ DF 06 00770 LDX HSCRL SCROLL LEFT 
0770 ; for about 1,3 million inner loops 0686: CA 00780 DEX 
0780 ; That's half a million loops а sec. ! 0687: 10 00790 BPL 1 
қ Р 0689: АЕ СЕ 06 00800 LDX LMS 
0610 LEFT 0616 RIGHT 061C OUT 0607 LOOP1 0680: ӨЕ CF 06 00820 STX LMS 
0613 гоора 0605 LOP3 0607 ГОРА 0409 LOPI 0690: DO 03 00830 BNE 2 
0692: ЕЕ 00 06 00840 INC 1М5+1 
0695: A2 07 00850 .2 LDX #7 
ВЕ 
ВЕ 
00100; FINE SCROLLING 0690: AD 00 03 00880 NOTLFT LDA STICK 
00110. 0640: 2908 00890 AND #8 
026 ' үлү 0648: 00 1E 00900 BNE DONE 
келей | 0684: АЕ DF 06 00910 LDX HSCRL SCROLL RIGHT 
0300: 00140 STICK Е $0300 ка 7 Е хи Ше 7 
0405: 00150 VSCROL .Ей $0405 as. ӘЖ) шол к 
0404: 00160 HSCROL ЕФ $0404 кзэ) асы ак фе т 
00170 ОР 8600 STARTS AT PAGE SIX j 
РУ OAF: СА 00960 DEX * 
0600: A9 03 00190 START LDA #3 TRY DIFFERENT NUMBERS HERE сет тт с 
0683: C9 FF 00980 СМР #255 


0402: 8D Е1 06 00200 STA SPEED 
0685: 00 03 00990 BNE .2 


0605: AD 30 02 00210 LDA $230 SET UP LHS POINTER 

0608: 8D CF 06 00220 STA LMS лен ee 
0608: AD 31 02 00230 LDA $231 $230 $291 15 POINTER TO START oe нЕ 
060Е: 80 00 06 00240 STA LMS+i ОҒ DISPLAY LIST Bee ИЧЕ аар В 


O4BF: ВЕ 04 04 01030 STX HSCROL 

04C2: 88 01040 DONE DEY 

06C3: FO 03 01050 BEQ .1 

06C5: 4С 30 06 01060 JMP LOOP 

0608: 4C SF ЕД 01070 .1 JMP $E45F EXIT VBI ROUTINE 


0611: А9 СВ 00250 LDA #05Р CHANGE TO OUR 

0613: 80 30 02 00260 STA $230 CUSTOM DISPLAY LIST 

0616: 89 06 00270 LDA /DSP 

0618: 80 31 02 00280 STA $231 

061В: A9 06 00290 LDA #6 SET UP VERTICAL BLANK INTERRUPT 


0610: A2 06 60300 LDX /UBI НІ-ВҮТЕ 01080 | 

041Ғ: AO 2D 00310 10Ү #0ВІ LO-BYTE 01090 ; CUSTOM DISPLAY LIST 

0621: 20 5C E4 00220 JSR $Е45С ~ 01100; | 

0424: 49 00 00330 LDA #0 0608: 70 70 70 01110 05р .Н5 707070 3 BLANK 8'5 
04СЕ: 77 01120 .Н5 77 


9526: 80 DF 06 00340 STA НАСА 


0629: 80 Е0 06 00350 STA УССМ. Q6CF: 20 BC 01130 LMS .HS 20BC LOAD MEMORY SCAN INSTRUCTION 


0601: 37 37 37 


овес: 60 дао а RETURN TO USER 0604: 37 37 37 
00380 ; VERTICAL BLANK INTERRUPT коч 
00390 ; 0604: 37 17 1. ри имои" 
060С: 41 01 я 
аа с = 1, СЕ жы 0600: CB 06 01160 ыы DSP BACK TO START OF DISPLAY LIST 
0633: 29 02 00420 AND #2 060Е: 00 01170 НСА .HS 00 
0635: 00 20 20430 BNE NOTDWN 06Е0: 00 01180 VSCRL .HS 00 
05Е1: 00 01190 SPEED .Н5 00 


0637: AE EO 06 00440 LDX VSCRL SCROLL DOWN 
043A: ЕВ 00450 INX 


0638: ЕО 10 00460 CPX 416 ~~~ Symbol table --- 


0630: 90 12 00470 BCC 1 06Ce: DONE .02=064=, .01=0651 06Е1: SPEED 
063F: AD CF 06 00480 LDA LMS -01=06C8 0657: NOTDWN 0600: START 
беда: 18 00490 CLE 06СВ: DSP .02=0674, .01=0676 D300: STICK 
0642: 69 18 00500 ADC #24 O60F: HSCRL 069D: NOTLFT 062D: VBI 

0445: 80 СЕ 06 00510 STA LMS 0404: HSCPOL .02-04ВА, .01=06BC 0660: VSCRL 
0648: C9 18 00520 CMP #24 O6CF: LMS 067C: NOTUP 0405: VSCROL 


1 2 0630: 100Р .02=0695, .01=0497 





Game Writer’s Column 


by Jon Atack, Eugene A.C.E. 


Welcome back to the GAME WRITER’S COLUMN. Last month we covered Ver- 


tical Blank Interrupts. This month we’ll be using VBI together with this month’s 
topic: Vertical and horizontal fine scrolling. 

To achieve fine scrolling, there are basically three things you must do: 

1. Make a custom display list. 

2. Set up a background to be scrolled. 

3. Write a VBI routine to do the scrolling. 

A Display List is a set of instructions telling the ANTIC chip (1) what part of 
memory is to be displayed and (2) how to display it. For our purposes we'll use а 
display list to scroll the whole screen both vertically and horizontally. 


Hex: Decimal: Comments: 

70 112 8 blank lines 

70 112 8 blank lines 

70 112 8 blank lines 

47 71 L.M.S.: Load Memory Scan 
20 32 tells ANTIC that screen 

3C 60 memory starts at $3C20. 
37 55 

37 55 display ANTIC mode 7 (GR. 2) 
37 55 bits 4 & 5 set, to 

37 55 enable fine scrolling 

37 55 

37 55 

37 55 

37 55 

37 55 

37 55 

37 55 

41 65 JVB: Jump to Vertical Blank 
00 00 and start of display list, 

30 48 which is at $3000 


For most games, the background will be one of the special character set modes 
(ANTIC modes 4, 5, 6, 7) used with a custom character set. Examples of games us- 
ing this technique are Eastern Front, Protector, Wizard of Wor, Pac-Man, Cen- 
tipedes, Nautilus, Canyon Climber, Miner 2049er, etc. Almost every commercial 
game uses a custom character set background. However, to save time and space, 
our fine scrolling demo will just scroll over the data in the operating system. To 
make your own background, you must (1) define your character set, then (2) place 
your screen data into memory someplace, and (3) change the Load Memory Scan 
pointer in the display list to point to your screen data. Custom displays take a lot 
of time, but the results are well worth it. A good background is a must for any 
commercial game. 

The final step is to write a routine to do the scrolling. There are two fine scroll- 
ing registers in the operating system called HSCROL and VSCROL. HSCROL con- 
trols horizontal scrolling, and VSCROL controls vertical scrolling. To use them, 
simply poke or store the number of lines you want scrolled. 

There’s just one problem: fine scrolling can only scroll so far. The vertical limit 
is 16 TV-scan lines, and the horizontal limit is 16 graphics 7 pixels. If we attempt to 
scroll beyond those limits, ANTIC simply ignores the higher bits and starts over at 
zero. 

The solution is to modify the Load Memory Scan instruction address in the 
display list. The LMS instruction contains a 2-byte address which tells ANTIC 
where in memory to start fetching data for the screen. If we decrease the value of 
that 2-byte address by one, the whole screen does a coarse scroll to the right. If 
we increase it by one, it coarse scrolls to the left. Similarly, if we add 40 to it (using 
a graphics mode that requires 40 bytes per line), the screen scrolls up. And if we 
decrease the address by 40 (using the same graphics mode), the screen scrolls 
down. 

Notice the word ‘coarse.’ Scrolling using the LMS pointer has no limits, but the 
screen moves in big jumps. To get unlimited fine scrolling, we must combine the 
fine scrolling registers with coarse scrolling using the LMS pointer. 

So, to do fine scrolling, we first fine scroll the screen, keeping track of how far it 
has been scrolled. When the amount of scrolling equals the size of the pixel or 
character, we reset the fine scroll register to zero and change the LMS address to 
execute a Coarse scroll. 

Look over the scrolling program itself and give it some study. When scrolling to 
the right, the HSCROL register is increased each time until it reaches a value of 8 
(because graphics 2 characters are 8 pixels wide). Then, HSCROL is reset to zero 
and a coarse scroll is executed by adding one to the value of the LMS address. 
The same technique is used for the other 3 directions, and diagonal scrolling is 
done by combining two directions into one scroll. For example, to scroll diagonal- 
ly up and left, a ‘left’ scroll and an ‘up’ scroll are both executed during the same 
vertical blank. 

Feel free to incorporate this scrolling program into your own game. In closing, 
here is short goodie you may want to type in and try: 

100 COLOR .EQ $ЕО 
110 .OR $600 

120 LOOP LDX COLOR 
130 INX 

140 STX COLOR 

150 STX $D018 

160 STA $D40A 

170 JMP LOOP 

It's a good effect for the title of a game, although you'll have to rewrite it so you 
don’t need to press system reset. 

Until next month, good luck and great gaming! 

—Jon Atack 
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Ockers 


Machine Language Programming #3 


Compare Instructions and Hooking to Basic 

In the last session we created a loop using a branching instruction. Because of 
the way the loop was terminated, it was necessary to count backwards with the in- 
dex. There should be some way of terminating a loop while counting forward and 
there is. The COMPARE instructions (CMP,CPX and CPY). Compare instructions 
involve one register (Accumulator, X or Y) and one other byte. Where the other 
byte comes from is determined by theaddressing mode. In a loop using X as a 
counter we use CPX: 


LDX - $00 ; Initialize count LOOP 
INX ; Next 

CPX +$14 ; Finished? 

BNE LOOP ; Not yet 


The instruction CPX + $14 compares the X register with the hex number $14. It 
DOES NOT affect the X register but it DOES set and reset flags. Remember the 
branch instructions operate depending on the condition of the flags. We have 
mentioned the zero (Z) and negative (N) flags. ! want to introduce another, the 
carry (С) flag. We won’t say what it is until we discuss binary arithmetic; it’s suffi- 
cient to know this flag, like others, will be set or reset depending on the previous 
operation. 

The branches to go along with the carry flag are: 

BCC Branch on Carry Clear (С = 0) 
BCS Branch on Carry Set (С = 1) 

By using the flags after a compare operation we have the equivalent of Вавіс 5 

IF ... THEN construction: 


Want to Branch if: Then use: 

REGISTER = DATA BYTE BEQ 

REGISTER «> DATA BYTE BNE 

REGISTER « DATA BYTE BCC 

REGISTER » = DATA BYTE BCS 

REGISTER > DATA BTYE BEQ followed by 
BCS | 

(BEQ branches over 

BCS). 


Let’s create a program to handle joystick movement of a cursor. Suppose we 
want only orthogonal movement (no diagonals). One solution is given in listing 1. 
The routine itself is quite simple, it compares the joystick value it gets to those it 
expects for certain directions and updates the direction only if they correspond. 
Notice the PLA at the beginning and the RTS at the end. These are used in ‘hook- 
ing’ the machine language routine to Basic. If you just put the routine itself in 
machine language with a loop from the end to the beginning, it will run too fast. 
With the USR function in Basic we can call the routine only when we want to, one 
time through for each call. Just put the routine in page 6 using ‘Hexpoke’, then 
type NEW and run the following Basic Program: 

100 TRAP 100:POKE 752,1 

110 РАМТ “*”;СНА$(30); 

115 FOR J=1 TO 10:NEXT J 

120 PRINT “ ” ;СНА$(30);:А = USR(1536) 
130 FOR J=1 TO 10:NEXT J 

140 GOTO 110 

Тһе СНА$(30)’$ (backspace) are there because the cursor column automatically 
advances once after the print. Leave them out and you моп! be able to move left. 
The trap is to prevent a ‘cursor out of range’ error message. Play with the delay 
loops to see their effect on the timing. 

If you want to use this routine in a Basic program you won’t want to load ‘Hex- 
poke’ and punch it in every time. We need the routine itself in the Basic program. 
One way to do this is to POKE the data in as follows. The Hex numbers are con- 
verted to decimal, (| use the program оп page Н-18 of the Basic Manual), and put 
into Data statements. 

10 RESTORE 20:FOR J=0 ТО 28:READ A:POKE 1536 + J,A:NEXT J 
20 DATA 104, 173, 120, 2, 201, 14, 208, 2, 198, 84, 201, 13, 208, 2, 230, 84, 201, 11, 
208, 2, 198, 85, 201, 7, 208, 2, 230, 85, 96 
It is nice to keep page 6 free for other uses. In this case | tend to put my 
machine language routines in strings as follows: 
10 DIM STK&29):RESTORE 20:FOR Ј = 1 ТО 29:READ A:STK&(J,J) 
= СНА$(А):МЕХТ J 

The function is then called with A=USR(ADR(S$)). This only works if the 
routine is completely relocatable and is able to reside any place in memory. This 
means you can’t use any instructions which depend on where the program is 
located. Absolute jumps to the program itself are out. These change depending 
on the program location. Relative branches are O.K. as are references to locations 
which don’t change (STICKO for example). 

Problem #5 

We used a TRAP in Basic to handle any out of bounds cursor movement in our 
cursor program. A better way is to handle the problem at machine level. Re-write 
the program of listing 1 so that top, bottom, left and right limits to cursor motion 
are included. 

COMPARE Instruction OP codes 


addressing mode IMMED. ABSOL. ZPAGE 
CMP с9 со С5 
СРХ ЕО ЕС : Е4 
СРУ со 


—Stan Ockers 


BRIAN’S ARCADE 


Along with the New Year there have been some pretty good games to go along 
with it! The Sands Of Egypt is a new adventure game from Datasoft Inc. | can’t 
give the game a full review because | have not gotten very far in the game. | am go- 
ing to give the game to Jim Bumpas, our co-editor, and he will give it a full review 
next month! 

One of the things | really like about the game is the superb scrolling. When you 
move west, for example, the entire picture scrolls to the left. So far | have only 
three different scenarios and Гуе heard no sound. But | don’t know, because like | 
said | haven’t gotten very far. If you want to play a tough adventure game you 
should buy The Sands of Egypt. 

Another game we recieved to review is Serpentine from Broderbund Software. 
Serpentine is another maze type game. Hold оп, | know what you're thinking: 
Another Pac-Man rip-off, right? Wrong! ! 

Serpentine is a totally original game. In the game you are a blue serpentine. 
Your enemies are the orange serpentines. You travel around the maze while trying 
to kill the orange serpentines. The only way to kill them is to eat them from behind 
until they turn green. When the orange serpentines turn green then you can eat 
them head on or from behind. You get more points from eating them head on, 
though, and you also make your serpentine one segment longer. 

The graphics in serpentine are not awesome, although they are pretty good. | 
really like the sound in serpentine. The sound | like the best is the sound the 
serpentines make. Serpentine is available from Bruderbund Software on disk for 
about $30. If you are tired of the same old maze game you should definitely buy 
Serpentine, you'll love it. 

Adventure International was kind enough to send us a review copy of their new 
game Sea Dragon. So here it is. If you like Scramble or Super Cobra in the arcades 
then you will love Sea Dragon. 

In Sea Dragon you control a nuclear sub named Sea Dragon. Your task is to 
travel deep under the ocean avoiding treacherous mines, depth charges, laser 
bases and ships which drop bombs on you. You must eventually get to the Master 
Mine and destroy it! 

The graphics aren’t great but they’re pretty good. One thing | like is the color 
animation and the sound. You can actually hear the sonar as you go about 
destroying mines,etc. If you like the arcade version of Scramble or Super Cobra or 
the home version of Air Strike then you will really like Sea Dragon. 

That’s all for this month. Next month ГИ try to review Miner 2049’er, Way Out, 
Defender and anything else | should recieve. 

See ya later, 


—Brian Dunn 





New Atari 


The biggest news is the release of the Atari 1200XL, a sleek new 64K 6500 com- 
puter with 12 user programmable functions, built in diagnostics, and compatibility 
with all Atari Hardware and Software. It has only one cartridge slot, 2 joystick 
ports, 256 colors, 3/2 octave sound range, and some new graphic modes. The ex- 
tra memory, of course, doesn’t make much difference, since the Operating 
System, etc., still takes up the same amount. Did you know that the VIC 64 has on- 
ly 38K available to BASIC even without DOS? Price “under 81000”-- probably 
$800. 

Also released are the new printer, the 1025 for $549, which is an Okidata; a 
40-col color printer, the 1020, which for $299 gives 4-color printouts on 472” paper; 
and а new cassette recorder, the 1010 for $100. 


Be A Writer! 


Becoming a published author in software is not as difficult as it might 
seem on the face of it. Let me now outline some of the fundamental 
requirements. 

Get the magazine Style Sheet. All magazines have them. The editor will 
send one with an SASE. COMPUTE! and SOFTSIDE have both more or less 
published theirs although | do not have the issue numbers in front of me. 

Fundamentally, the requirements are for wide margins and double spacing 
and no right justification. This supports their estimate of how many column 
inches your article will fill. Then each page must have your name, a short title, 
and a page number. All programs, diagrams, and screen dumps should be 
clearly labeled. There is a very simple reason for this. Manuscripts get 
dropped and mixed up with others. This is for your benefit as much as theirs. 
There are other requirements but the point is most any word processing 
program can handle these basic requirements. 

Most of my experience has been with COMPUTE! This is due to the delay 
time in getting a response from the magazines. | have moved on my 
COMPUTE! rejects but have yet to receive a response. But from general 
knowledge of magazines let me say a few words about what | have learned. 

The average magazine buys from three to six issues prior to publication. 
Also they usually take from two to four months to respond to a manuscript 
submission. This means the manuscript submitted in January and bought in 
March may not see print until September. There is something to be said for 
having a long pipe line. But what does “buy” mean. Unless you work a special 
deal it means that you get so many dollars per page. If it is good enough to 
print it is good enough to get the standard rate but rarely is there any special 
consideration for an especially good article. If there is a reward it is in 
Royalties on the republication in “Best of...” books. But when do you де! 
paid? Guess again. There are three common payment forms: upon 
acceptance, binder with remaining amount upon publication, and payment 
upon publication. Ordinarily the more established a magazine the more likely 
they are to pay upon acceptance. The new magazines are likely to pay upon 
publication. Do not expect payment will be in cash dollars U$. In software 
magazines these can be in merchandise certificates which cost the magazine 
only the discount prices which they can arrange though their advertisers, 
although you redeem against the list prices. This, of course, is again limited 
to those just getting off of the ground. 

A new writer needs a reputation. If one magazine will not buy then move on 
to the next and the next. Do not rewrite one word unless the magazine 
obviously is a different market. A simple graphics program rejected by 
COMPUTE! might be rewritten for COMPUKIDS. A new writer also needs 
experience and needs to interpret experience properly. The stories are legend 
about best sellers rejected by all but the last publisher. They are true. This 
leads me to the next aspect of publishing. 

As with the publishing house, a magazine must have a broad audience if it 
is to stay in business. There is little concern for Best Seller potential in a 
publishing house and there is little concern for the neatest software trick this 
side of Sunnyvale if they have already bought up a year’s supply of articles on 
the subject. | recently had a program named SIMON (in ACE Library) rejected 
twice in а row. SOFTSIDE ran a similar article in August and | have yet to see 
what COMPUTE! will run or maybe they just have enough games for the year. 
The point being is a magazine must have articles for the beginner, the 
experienced, and the seasoned user and must have articles for young and old. 
It must have utilities, games, tutorials, business and misc. To write you can 
write on any subject for any age group and to sell the most | suggest you 
write for all categories. 

What is most important? A professional editor and | are certain the amatuer 
editors will tell you the primary problem is filling the magazine or newsletter. 
First it is hard to get people to write and second what is written must be 
written in coherent English with reasonably proper grammatic construction 
and spelling. This is every editor's problem. Next there is interest in the 
subject matter as publication material. A computer magazine editor has one 
further problem, the software must run with minimum problems. It pays to 
thoroughly debug anything you submit. No editor wants to publish a list of 
corrections to your program as long as the original article although it has 
been done. 

A manuscript will consist of two parts—the prose and the program (the 
latter may not be needed). The prose is the documentation. It tells the user of 
the program what it will do, why, and how to use it. It covers all aspects of 
what it can do and how to get the best use of it. Also it provides sufficient 
information to change it to fit individual needs if that is appropriate. With 
software nothing, absolutely nothing, is obvious. The Navy uses MIL- 
STD-1679 to guide not only the documentation of software but the 
excruciating detail as to how it must be written. This is not for fun. This is so 
someone besides the author can make some sense out of it. For example, get 
out a program you wrote a year ago and haven't looked at since. Explain it. 
You will find you can not understand what you did without work. Imagine your 
reader who never even saw it work before. You are really selling the 
documentation for your program. The magazine will determine whether or not 
the subject is of interest to them. 
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The computer itself is only 36 years old. Affordable and useful computers 
are only 20 years old. The personal computer is 8 years old. The Personal 
Computer software publishing business is 6 years old. ATARI personal 
computers are three years and the first seriously published article containing 
software for the ATARI was in late 1980 (I think.) It is often difficult to put into 
perspective just how much has occured in such a short period of time. Think 
about something else you did three or eight years ago like a marriage or a 
child being born and it seems like only yesterday. Yet my son was born about 
one year after | decided against buying the first ALTAIR computer. SOFTSIDE 
magazine has published 31 issues, A*N*A*L*O*G about six, ANTIC two, 
(COMPUTE | can’t figure out perhaps as few as 31, as many as 43.) 

If you consider publication of software articles then keep in mind you are 
not submitting articles to The New Yorker or the Atlantic Monthly nor are you 
dealing with OMNI, National Lampoon, or Heavy Metal —not that | wish to 
discourage you. The software publication business is barely beginning to be 
defined as a market. You can still afford to subscribe to every computer 
magazine published, almost. Those covering the ATARI you can almost get by 
dropping hints to friends and family around Christmas and your birthday. 

Next let us look at the publishers addresses. COMPUTE is in Greensboro, 
North Carolina (probably just down the road from the Mother Earth News). 
SOFTSIDE is in Milford, New Hampshire. These addresses are a far cry from 
Lexington Ave, in New York City. What has happened? Well the first thing to 
think about is: Eugene, Oregon is no longer the least likely place to start the 
hottest software magazine. This is a new era of publishing perhaps more 
profound than the development of science fiction and perhaps even more 
important. 

In 1938 (or 1936) John W. Campbell became the editor of Astounding 
Stories and single-handedly turned around the field. He changed what was a 
scientific romance parallel to a gothic romance into a field which required 
true solid understanding of science along with good fiction. 

What is happening today? A magazine editor may no longer simply know 
his skill as writer and as an editor, he must be skillful in a way which the 
science fiction editor never had to be. John Campbell was fond of requiring 
his writers to be as solid in their science as they were in their fiction. Today’s 
software magazine editors have an added challenge. Even John Campbell let 
more than a little poor science slip by him and in some areas he encouraged 
it. Today’s software magazine editors can let nothing slip by them. Why? 
Because the computer is available and the programs are submitted on 
magnetic media. There may have been pseudo-science but there are no 
pseudo-programs. 

Today we have a discipline introduced to publication like never before, a 
solid discipline where the computer is the final judge. The writer and editor 
face a dual challenge. The skill in programming or knowledge of the system is 
as important as the literary skill in putting together a manuscript. This is a 
new field, a virgin field which is open to anyone who has the skill to program. 
Today’s old hands at science fiction started as teen-agers and they knew how 
to be creative within the restrictive framework of science. They had barely 
grasped the foundations of writing. They were accepted because the science 
was more important than the fiction. Today the program is more important 
than the article which goes with it but both are important. 

What we have developing is a form of disciplined writing for the average 
person which was previously unseen outside of the professional literature of 
the sciences. Its expansion will probably directly follow the expansion of 
personal computers. This is a wide open field which will become more and 
more professional but will always have room for the new comer. Anyone who 
masters a solid understanding of the computer and of software, and who can 
meld this skill with writing skill has a wide open potential to operate in this 
new, and fast growing market. There is a future here and it is open to anyone 
willing to take advantage of it. 

— Маі Giwer 
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CAMPFIRE MIXERS 


Since school began in September, we have grouped a combination of 6 boys 
and 6 girls ranging in 4th through 6th grades for a Campfire Club. We have titled 
ourselves “Тһе Campfire Mixers”; and for our Indian name: “То ka ta ра”, mean- 
ing, “In the future”. 

Heading our club is:Jackie Heden, with special interest and helps, her husband, 
Richard, and myself, Nancy St. Onge as Assistant leader. 

Since we have a special interest in computers Jackie and | decided it would be 
fun as well as educational to choose computers as the theme of our club. Our 
group became very excited at the thought of this, and are very eager to learn this 
“hands оп” experience. 

While our computer plans are in progress, our club went on their first excursion 
to Camp Wilani for an overnight campout in veneta. 

Kirt Stockwell, president of ACE came as a special guest to one of our 
meetings. He demonstrated many different types of program languages, the uses 
of a Modem and how to use a Word Processor. Ruth Ellsworth demonstrated the 
Pilot Language. 

On one of our field trips to Lane Community College, Kirt presented a surprise 
to our Campfire Club. As we came into the forum and sat down, the children 
began to read, moving across the screen; “ACE WELCOMES THE CAMPFIRE 
MIXERS, WHO ARE IN THE FUTURE —” followed by each one of the children’s 
names, one by one flashing in different colors across the screen. The children 
shouted and giggled as they watched and felt very honored. Kirt also programmed 
our symbolgram for our club which consisted of four different Indian symbols. 
They are person, hand, thought and eye which are set in a square representing a 
computer. Located at the bottom is our Indian name: “їо ka ta ра”. 

Our children are slowly beginning to understand within their own young minds 
the reality of what a computer can do. One of their favorite programs is called 
“The Talking Head” which is demonstrated using sound. Some of the other field 
trips we have taken the children on were to the University of Oregon Computer 
Center where Floyd Bard demonstrated the different uses of various computers. 
One of his special surprises to the children was a Computerized Snoopy which he 
presented to each child personally. We also went to Video Toones and Marty let 
our children play several video arcade games. 

Іп December we took the children to The Willamette Institute of Science and 
Technology where they had many attractive displays of different computers, 
games, and other interesting educational things for various ages of children. 
Many children entered Wistec’s Video tournament in hopes of winning an Atari 
computer and other prizes which were given away. Wistec’s Planetarium Show of 
the Stars and Planets highlighted our trip there. 

At our last ERACE meeting we talked to Jim Schwartz who is a High School 
Teacher at Cal Young High School. Jim is currently experimenting with basic pro- 
gramming with his children in the classroom. He shared many ideas with us to 
teach our children a fun and simple way to learn Basic Programming. We really ap- 
preciate Jim’s help because it is very difficult to find ideal programs to teach 
children how to understand the basics which are needed in learning to operate a 
computer. 

Towards the middie of December our club had a Bowl-A-Thon to raise funds 
which were needed in our treasury. We are happy to report this was a great suc- 
cess. We raised $400.00 which was a great boost to all of us. Some of the things 
we want to accomplish include purchasing an individual disc for each child upon 
which to learn programming; patches and group beads which are earned by the 
group and two special field trips which the children choose for our club. Our 
foremost goal is an overnight excursion to the Coast in April. This is designed to 
reward our boys and girls for their cooperation and patience which was needed in 
order to teach them the basics of computers. 

In January, Campfires will be having their annual Candy Sale and our club will 
be looking forward to supporting this good cause to which we belong. 

Also our club has been invited by Don Marr, with Royal Software to come and 
observe how computers are used in his business. 

As February comes near our club will be very busy preparing for the Interna- 
tional Faire which will be on March 5. Each child will select the country of their 
choice,design an outline of their country and flag, and will select a unique feature 
which impresses them the most about their country. Then Richard will help them 
program this information and the children will display and demonstrate their com- 
puter programs at the faire. 

Also our club will be having our Ceremonial in February. This is to reward our 
children for their past efforts and accomplishments by presenting them with Try- 
Ad Beads. The children are learning to program and by accomplishing certain 
tasks on the computer successfully will earn different colored beads that repre- 
sent what they learned. 

On May 7, we will be having our last and final Grand Council Ceremonial for the 
entire year, where all the clubs of Campfires will attend. There will be approx- 
imately 2,000 children there. Also we will have a lighting ceremony and many pro- 
minent advisors and leaders will be attending. At this time, we want to extend our 
invitation to ACE to be a part of our wonderful Computer Try-Adventure program 
by attending this Grand Council Ceremonial. 

Through the excitement and happenings unfolding before us, we have really felt 
a surge of hunger for the knowledge to learn the computer, and the urge to push 
forward; to continue and keep learning this Keyboard Wonder! 

When we started our unique little club we went in blindly, not Knowing how to 
supervise or direct this type of club; but through the kindness, help from others, 
time and prayers which were contributed we have been very successful so far in 
the past four months. 

Our gratitude is extended to the following people in sponsoring us in the Bowl- 
A-Thon; and helping us to reach our goals: Jack Ball, Manager of Southtowne 
Lanes, Members of ACE, ERACE, Video Toones, People of Pacific Northwest Bell 
on Grant Street, Graham Kerr, formerly the chef on ‘‘The Galloping Gourmet,” the 
childrens teachers, friends,relatives, Courtney Arnold, our Supervisor in Camp- 
fires, and any others who deserve our sincere thanks. 

—Jackie Heden, Nancy St.Onge 
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Bulletin Board 
(503) 343-4352 


On line 24 hours a day, except for servicing and updating. Consists of a Tara 
equipped 48K Atari 400, 2 double-density disk drives, an Atari 825 printer, a 
Hayes SmartModem; running the ARMUDIC Bulletin Board software written 
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TYPESET COPY 


From Your Computer 


№ you have a modem, word processing and communications programs, 
you can transmit your manuscript, article, newsletter, or other text via 
telephone and have it converted into space-saving, easy-to-read type! 
Computer typesetting offers you high quality copy at “do-it-yourself” 
rates: just $2.00 рег 1,000 characters. And it’s easy to encode your Copy 
with our designated typesetting commands. Hundreds of type styles to 
choose from with 8 styles and 12 sizes “оп пе: Write ог call Dennis Hunt 
for a brochure and simple instructions. 


EDITING & DESIGN SERVICES 


30 East 13th Avenue Eugene, Oregon 97401 
Phone (503) 683-2657 





ENTHUSIASTS 
3662 Vine Maple Әс Eugene OR 97405 
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Atari Computer Enthusiasts 


АСЕ. is ап independent computer club and user's group with no 
connection to the Atari Company, a division of Warner Communication 
Company. We are a group interested in educating our members in the use of 
the Atari Computer and in giving the latest News, Reviews and Rumors. 

All our articles, reviews and programs come from you, our members. 

Our membership is world-wide in scope; membership fees include the 
A.C.E. Newsletter. Dues are $10 a year for U.S., and $20 a year Overseas 
Airmail and include about 10 issues a year of the ACE Newsletter. 
President—Kirt Stockwell, 1810 Harris #139, Eugene, Or 97403 503-686-2470 
Secretary —Charles Andrews, POB 1613, Eugene, Or 974401613 503-747-9892 
Librarian—Chuck and Jody Ross, 2222 Ironwood, Eugene, OR 97401 
503-343-5545 
Editors—Mike Dunn, 3662 Vine Maple Dr., Eugene, Or 97405 503-344-6193 

Jim Bumpas, 4405 Dillard Rd., Eugene, Or 97405 503-484-9925 


Send a business-size SASE to the Ross’ for the new, updated ACE Library 
List!! Best of ACE-1981, still available, Disk or Tape, $8! 


